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Pascal ? 
ProDOS ? 
Graphisme GS ? | 
Essais logiciels ? 


Communication ? 














Abonné à CalvaCom ? 


Clv_Pom's, application “Qualité Pom's” pour le Macintosh, est un 
logiciel complet pour l'optimisation de vos connexions au serveur de RCI 








Enregistrement des 
consultations dans des fichiers 
de type MacWrite 


Exportation de messages, de 
procédures, de programmes et 
de fichiers 





Fichier 
Nouveau. 
Duurir.. 


Suppression des lignes ‘--’ 


Y PS Recodage é, à, etc. 


1=h essi Î be …. 
ER Impression simultanée 





Ferrer 


 . 


léchargement 
de programmes et 


A ne 


Raffinement : 

en quittant Clv_Pom's, on 
peut se diriger vers le bureau 
électronique, vers une autre 
application mais aussi en 
‘emportant’ le dernier fichier 






200,00 F TTC franco, bon de 
commande page 74. 
CLV_Pom's existe également 
en version Apple // pour 
utilisation avec un Minitel 





Quitter 










Enregistrement de tentes 
Enregistrement de programmes 
Exportation de textes & procédures 
Exportation de programmes 





Suppression éventuelle des lignes de 
message du serveur 


Option téléscripteur (impression des 
dépêches de l'AFP lorsqu'elles 
‘tombent’ par exemple) 


Source 


1 Minitel 


Fichiers ‘Pom's 27’. 





Possibilité de traitement des 
fichiers créés avec le 
programme ‘Minitel 27° 






vers le ‘Finder’ 


vers une application. 
ES Application + Fichier Calva… 
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Grand rendez-vous annuel des Apple-maniaques, 
Apple-Expo vous propose cette année d'entrer 
gratuitement si vous êtes porteur de Pom's, bonne 
nouvelle. 


Plus qu'une simple Expo, cette fête devrait nous 
réserver quelques grandes nouveautés : les 
HyperCard, MultiFinder et autre ImageWriter LQ 
mais on nous promet également la démonstration 
d'un réseau utilisant des fibres optiques, de 
multiples périphériques pour les handicapés (tablette 
graphique, écran tactile...) et le résultat de mille 
œuvres de développeurs. Bien entendu, Pom’s vous 
y accueillera. 


Ce numéro ? Toujours en évolution, nous avons 
ouvert Pom's à l'assembleur ORCA/M - GS oblige -, 
au Turbo Pascal sur Macintosh, et même à une grille 
de mots croisés, objet d'un petit concours. Autre 
nouveauté, votre courrier électronique : nombreux 
sont nos lecteurs qui, 24 heures sur 24, déposent dans 
notre boîte à lettres CalvaCom questions, remarques 
et suggestions ; deux pages de ce numéro en sont le 
reflet. 


Pons se veut une revue complète et variée et le pari 
est encore gagné pour cette rentrée : trois bancs 
d'essai, deux commandes externes ProDOS, un 
étonnant écran ‘virtuel en DOS 3.3, deux 
programmes Pascal, un petit montage électronique 
pour détecter la sonnerie du téléphone, un 
programme WPL.. Deux mois entre chaque 
parution, ce n'est pas si long pour tout exploiter ! 


Hervé Thiriez 





Pom's n° 32 




















tre propos est 
‘apporter ici une 
olution pour trans- 
ormer des images 
aute résolution 
images classiques 
sur la gamme Apple ][, ][+, //e, 
//c) en images de type GSPaïint. 
Les systèmes de codage de ces 
deux types d'images sont très 
différents. 


Images classiques 


+ la résolution d'une image 
HGR classique est de 280 
points horizontaux sur 192 
points verticaux ; 

* un point écran est codé sur 1 
bit (allumé - éteint) ; 

* un octet sert à coder 7 points 
(sur les 7 bits de plus faible 
poids, le bit de poids fort 
servant au codage de la 
couleur) . Une ligne écran est 
donc composée de 40 octets 
(40 octets * 7 bits = 280 
points) ; 

+ l'organisation de la page HGR 
est assez compliquée car les 
adresses des premiers octets de 
chaque ligne ne sont pas en 
ordre régulièrement croissant 
(ainsi le 41ème octet au lieu 
d'être au début de la deuxième 
ligne est au début de la 64ème, 
le 81ème au début de la 
128ème ligne ; tout se passe 
comme si l'écran était divisé en 
3 zones de 64 lignes : pour 
plus de détails voir dans le ler 
numéro de Pom’s l'article sur 
l'organisation des pages 
graphiques) ; 

+ quoi qu'il en soit on peut 
obtenir l'adresse d'un point par 
la routine Moniteur HPOSN 
($F411) après avoir chargé 
comme suit les registres : 

X & Y : position horizontale 
du point (faible-fort) 
À : position verticale 


le résultat est obtenu en lisant 
aux adresses $26 et $27. 


Images de type 
GSPaint 


Le mode de construction d'une 
image de type GSPaint est plus 
simple : 

+ la résolution d'une telle image 
est de 320 points horizontaux 
sur 200 points verticaux ; 

* un point écran est codé sur 4 
bits (16 couleurs = 2 À 4 
combinaisons de 4 bits) ; 

* un octet sert donc à coder 2 
points (et on a 160 octets sur 
une ligne) ; 

+ l'adressage est on ne peut plus 
simple : les 160 premiers octets 
pour la lère ligne, les 160 
suivants pour la 2ème ligne, 
les 160 suivants pour la 3ème 
ligne, etc. ; 

+ un écran GSPaint se compose 
donc de 32000 octets (200 * 
160) qui occupent la zone 
$E1/2000 à $E1/9CFF mais en 
fait le fichier sur disque en 
occupe 32768 car viennent 
ensuite les Scan Line Control 
Block et palettes (voir Pom’s 
31, Peeks et Pokes longs). 


Transformations 
d'images 


La transformation d'une image 
classique en une image de type 
GSPaint, grâce au programme 
binaire que nous proposons 
s'effectue en plusieurs étapes : 


* par manque de place en 

mémoire principale (Bank 00) 
pour y charger l'image HGR 
(4000 octets) et y reconstruire 
l'image type GSPaint (32768 
octets), tout en gardant de la place 
pour les programmes, on 
transfère l'image à transformer en 


Bank 01 (mémoire auxiliaire de la 
carte 80 colonnes) grâce à 
AUX.MOVE ($C311); 


+ pour chaque ligne écran, on 
calcule l'adresse de ses 7 

premiers points (c'est à dire du 

premier octet) ; 

+ _l'octet qui s'y trouve ainsi que 
le suivant sont décomposés en 

leurs 14 bits significatifs ; 


* puis on reproduit 4 fois chaque 

bit , ce qui nous donne 4 * 14 
= 56 bits , que l'on recombine 8 
par 8 pour faire 7 octets, qui sont 
alors stockés, en mémoire 
principale à partir de $1000, les 
uns à la suite des autres ; 


* on passe ensuite aux 14 points 

suivants, puis à la ligne 
suivante, en incrémentant à 
chaque fois l'adresse de stockage 
des 7 octets ; 


* une palette standard de 

couleurs est créée en $8E00. 
Enfin, grâce à la routine MOVE 
que nous avons ajouté au 
programme binaire, le tout est 
déplacé en Bank El à partir de 
l'adresse $2000 pour pouvoir être 
visualisé. 


Les fichiers qu'utilisent GSPaint 
sont de deux types : 


+ type $CO, format compacté , 
+ type $C1, format écran. 


Ce dernier format a été retenu et 
c'est pour pouvoir sauver sous 
cette forme qu'il faut au 
préalable créer un fichier de type 
$C1 par l'ordre Basic : 

CREATE FICH, T$C1 

avant de sauvegarder par : 

BSAVE FICH, A$1000, L32768 

Tout cela est effectué par le 
programme Basic TRANS- 
FORMEUR après qu'il vous ait 
demandé le nom de l'image à 
charger et qu'il vous ait proposé 
d'en respecter Où d'en 
bouleverser les couleurs. 
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Vincent ex Bernard TOMENO 


À noter que l'image finale 
n'occupe pas toute la largeur de 
l'écran GSPaint (marge droite de 
40 points et marge inférieure de 8 
points) en raison de la différence 
entre les 320/200 points de la 
page SHGR du IIGS et les 
280/192 points de l'image HGR). 


G 








9080:27 91 85 
É , 9088:27 91 85 
Récapitulation 3050100 09 
HGR.SUPHGR.C 90A0:A5 1F 85 
90A8:91 85 EF 
Après avoir saisi ce code sous 90B0:01 20 27 
moniteur, vous le sauvegarderez 90B8:00 20 27 
par : 90C0:91 E8 A9 
BSAVE HGR.SUPHGR.C, A$9000,L$230 90C8:EE E8 A9 
90D0:EF 20 C7 
9000:A9 00 85 F9 85 FD 85 3C 90D8:27 91 85 
9008:85 3E 85 42 A9 20 85 3D 90E0:20 67 91 
9010:85 43 A9 40 85 3F A9 10 90E8:27 91 85 
9018:85 FE 38 20 11 C3 A9 00 90F0:DD 90 EE 
9020:85 FA 20 DF 91 AO 00 AF 90F8:EE 90 90 
9028:00 00 01 20 67 91 AD 28 9100:EE DE 90 
9030:90 8D 90 90 8D DD 90 EE 9108:A5 FA C9 
9038:90 90 EE DD 90 EE DD 90 9110:90 18 A5 
9040:AD 29 90 8D 91 90 8D DE 9118:D0 02 E6 
9048:90 A9 02 85 CE A5 18 85 9120:C9 CO FO 
9050:CF A2 01 A5 1F 85 07 A9 9128:08 AS CE 
9058:01 20 27 91 85 EE E8 A9 9130:CE B5 18 
9060:00 20 27 91 85 EF 20 C7 9138:60 A2 00 
9068:91 E8 A9 O1 20 27 91 85 9140:8E E8 EO 
9070:EE E8 A9 00 20 27 91 85 9148:00 77 07 
9078:EF 20 C7 91 E8 A9 O1 20 9150:00 80 00 
Programme 


TRANSFORMEUR 


10 D$ = CHR$ (4): PRINT D$"BLOAD HGR.SU 
PHGR.C": PRINT : PRINT D$"PR£3": PRIN 


T : ONERR GOTO 125 
15 HOME : TEXT : VTAB 2: HTAB 3: INVERS 
E : PRINT "TRANSFORMATION D'IMAGE CLA 


SSIQUE HGR EN IMAGE DE TYPE GS/PAINT 
POUR II GS" 

20 NORMAL : CALL - 958: PRINT : HTAB 2 
8: PRINT "(NE MARCHE QUE SUR II GS)": 
FOR I = 1 TO 3: POKE 49204,I + 4: PO 
KE 49186,1I + 12: FOR D 1 TO 300: NE 
XT : NEXT : REM POKES POUR FAIRE JOL 








E8 A9 00 20 9158:0F FO OF EO 00 DF 04 AF 
20 C7 91 AF 9160:0D 8F 07 CC OC FF 0F 85 
67 91 A2 00 9168:FF A2 00 46 FF A9 00 69 
91 85 EE E8 9170:00 95 18 E8 EO 08 DO F3 
A9 00 20 27 9178:60 A5 CE C9 00 DO 22 A5 
C7 91 E8 A9 9180:09 C9 00 FO 3F A5 CF C9 
85 EE E8 A9 9188:00 FO 39 A5 08 C9 01 FO 
85 EF 20 C7 9190:08 A5 07 C9 00 FO 2A DO 
20 27 91 85 9198:25 A5 07 C9 00 FO 1C DO 
20 27 91 85 91A0:17 A5 09 C9 01 FO 0E A5 
E8 A9 01 20 91A8:CF C9 01 FO 08 A5 08 C9 
AF 00 00 01 91B0:01 FO DE DO E4 A9 OF 60 
00 A9 00 20 91B8:A9 06 60 A9 OA 60 A9 04 
20 C7 91 EE 91C0:60 A9 03 60 A9 00 60 A5 
90 EE 90 90 91C8:EE 0A 0A 0A OA 85 06 18 
DD 90 DO 06 91D0:A5 EF 65 06 91 FD E6 FD 
91 90 E6 FA 91D8:A5 FD DO 02 E6 FE 60 A5 
F0 03 4C 51 91E0:F9 A0 00 A2 00 20 11 F4 
69 14 85 FD 91E8:A5 26 8D 28 90 A5 27 8D 
E6 F9 A5 F9 91F0:29 90 60 A9 00 85 D6 A9 
4C 1E 90 85 91F8:80 85 D7 A2 00 A0 00 AF 
09 A5 CF 85 9200:00 10 00 8F 00 20 El EE 
CF 20 79 91 9208:04 92 EE 00 92 C8 C4 D6 
47 91 9D 00 9210:D0 ED EE 05 92 EE 01 92 
DO F5 60 00 9218:E8 E4 D7 DO EO A9 00 8D 
08 2C 07 0F 9220:04 92 8D 00 92 A9 20 8D 
0F 00 OD A9 9228:05 92 A9 10 8D 01 92 60 
I 
29 VTAB 9: INPUT." NOM DE L 


"IMAGE À TRANSFORMER ( RTN = CATALOG 
D MeITS: IF ITS = CHRS (3) THEN 125 

30 IF IT$ = "" THEN HOME : PRINT : PRI 
NT D$"CAT": GET A$: HOME : GOTO 25 

35 HGR PRINT D$"BLOAD"ITS",A$S2000":AD 
= 37302: POKE AD,15: POKE AD + 3,6: 
POKE AD + 6,10: POKE AD + 9,4: POKE À 
D + 12,3: POKE AD + 15,0 

40 VTAB 22: PRINT " RESPECT DES COULEUR 


S ? (O/N) ";: GET A$: IF A$ = "N" THE 
N 65 
45 HOME VTAB 22: PRINT " OK POUR TRAN 
GET A$: IF AS 


SFORMATION ? (O/N) 


Moses 
A 














€ ‘> "O! THEN TEXTU: HOME :  GOTO 25 115 VTAB 21: HTAB 72: INPUT CO$S:T = T + 


50 CALL 36864: PRINT : POKE 49193,161: 1: ON CO$ = "" GOTO 70:CO0 = VAL (CO 
CALL 37363: GET A$: POKE 49193,65: PR $): IF CO > = 0 OR CO < 16 THEN POK 
INT " ON SAUVEGARDE ";ITS;".GS ? (O/N E AD + IN,CO 
) ";: GET AS: ON A$ < > "O" GOTO 15: 120 GOTO 70 
NS$S = ITS + ".GS": PRINT D$"CREATE"NS 125 ER = PEEK (222):LI = PEEK (218) + 
SreTsCi" PEEK (219) * 256:ER$ = "Y a un probl 

55 PRINT DS$S"BSAVE"NSS",T$C1,AS$1000,1L327 ème en ligne " + STR$ (LI): IF ER = 
68": HOME : TEXT : VTAB 15: HTAB 3: I 255 THEN HOME : END 
NVERSE : PRINT NS$;" EST MAINTENANT À 130 IF ER = 6 OR ER = 7 THEN ER$ = "Err 
U CATALOG": PRINT : HTAB 8: PRINT "ET eur sur le nom du Fichier ou du Volum 

LISIBLE SOUS GS/PAINT": NORMAL e" 

60 END 135 IF ER = 4 THEN ER$ = "Disque protég 

65 PRINT :T = 1 é en écriture" 

70 IF T = 1 THEN CLS = "NOIR'":IN = 15 140 IF ER = 3 OR ER = 8 THEN ERS$ = "Err 

75 IF T = 2 THEN CLS = "VIOLET":IN = 12 eur d'entrée/sortie" 

80 IF T = 3 THEN CLS = "BLEU":IN = 9 145 IF ER = 9 THEN ER$ = "Pas assez de 

85 IF T = 4 THEN CLS = "VERT":IN = 6 place sur ce disque": PRINT D$"DELETE 

90 IF T = 5 THEN CLS = "ORANGE":IN = 3 "NSS$ 

95 IF T = 6 THEN CLS = "BLANC":IN = 0 150 IF ER = 19 THEN ER$ = "Fichier déja 

100 IF T > 6 THEN HOME : GOTO 45 existant sur le disque" 

105 VTAB 22: CALL - 958: HTAB 12: PRIN 155 HOME : VTAB 23: HTAB INT ((80 - L 
T " QUELLE NUANCE POUR TRADUIRE LE "; EN (ERS$S)) / 2): PRINT ERS$; CHR$ (7): 
CL$S;" ( RTN = NO CHANGE )" FOR D = 1 TO 3000: NEXT : HOME : TEXT 

110 PRINT " 0 = Noir , 1 = Gris foncé : GOTO 25 

, 2 = Brun , 3 = Violet , 4= Bleu fo 160 REM LES POKES AD (LIGNES 35 ET 11 
ncé , 5 = Vert foncé , 6 = Orange , 7 5) RETABLISSENT OU CHANGENT LES COULE 
= Rouge , 9 = Jaune , 10 = Vert clai URS ; CALL 36864 = ADRESSE DU PGM BIN 
r , 11 = Bleu clair , 12 = Mauve , 13 ., CALL 37363 = ROUTINE METTANT L'I 
= Bleu moyen , 14 = Gris clair , 15 MAGE EN $E1/2000 
= Blanc"; 


HPOSN _ $F411 
Source HGR.SUPHGR.S GEASL = 526 ProDOS 
Assembleur ProCODE GBASH =  $27 
* 
HA HA D D D DE D D D D D À RAA RAT ANA A ASE 
nn a on * * PROGRAMME * 
*{ TRANSFORMATION D'IMAGES !* delle 
#1 HGR -> SHGR format GS !* “ 
*! Tomsoftware JUIN 1987 1* 
*!  ASSEMBLEUR  PROCODE [E ORG  $3000 
*! { BIG MAC Compatible ) 1* 
fommnmmmmanmenmmmemmmmemmsm-em-—— * 
AURA AR AAA AAA A A A À A À A #4 * INITIALISATION DES ADRESSES * 11gs 
* * 
PY = $r9 : numéro de ligne 
PX = $FA ; numéro d'octet dans la ligne/2 LDA £S00 
LO.DS = $FD STA PY 
HI.DS = $FE STA LO.DS 
FIRST = $EE STA MP.0L 
SECND = $EF STA MP.FL 
CASE = SFF ; Qq adresses de stockage... STA MA.OL 
OCTET = $6 ; ...des données... LDA £$20 
BIT = $18 ; ...-pendant l'opération STA MP.0H 
COUL = $7 ; BIT codant la couleur STA MA.OH 
RANG = $8 ; colonne paire/impaire LDA £$40 
BITI1 = $9 ; pixer qiavane STA MP.FH 
BIT2 = $CE ; pixel à l'étude LDA £$10 ; L'image GS sera stockée à 
BIT3 = $cFr ; pixel d'après STA HI.DS ; partir de $1000 en Mem. princ. 
MP.0L = $3C : Origine de la .... 
MP.0H = $3D ;...zone à transferrer * TRANSFERT IMAGE EN MEM.AUX. * 
MP.FL = $3E ; Fin de la zone... + + 
MP.FH = $3F 7... à transferrer 
MA.0L = $42 ;: Origine de la .... SEC ; Retenue à 1 pour transfert de 
MA.OH = $43 3...zone destination JSR AUX.MOVE ; la Mem Princ.-->Mem Aux. 
AUX.MOVE = $C311 
PALETTE = $8E00 * BOUCLE SUR L'IMAGE * 
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ADIM 


£$00 
AF 
0000 
01 
LABO 
ADIM 
ADIM2 
ADIMI1 
ADIM2 
ADIMI1 
ADIMI1 
ADIM+1 


ADIM2+1 
ADIM1+1 


; OPCODE DE LDA LONG 
; = LO ET HI DE L'OCTET À ETUDIER 
; DANS LA BANK 01 ( = MEM.AUX.) 


* RECONSTRUCTION DES 7 OCTETS * 


DEBSEC 


ADIM2 





£02 
BIT2 
BIT 
BIT3 


£01 
BIT+7 
COUL 
£01 
DECAL 
FIRST 


£00 
DECAL 
SECND 
RECONS 


£01 
DECAL 
FIRST 


£00 
DECAL 
SECND 
RECONS 


£01 
DECAL 
FIRST 


£00 
DECAL 
SECND 
RECONS 


AF 
0000 
01 
LABO 


£00 
£01 
DECAL 
FIRST 


BIT+7 
COUL 
£00 
DECAL 
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+ pour respecter la couleur du 
; 1° pixel de chaque ligne 





3 X=4 


X=5 


LA 


OPCODE DE LDA LONG 
0000 + ler OCTET À DECORTIQUER 
01 3 EN BANK 01 


ADIM2 
ADIM1 
NINC 
ADIM1+1 
ADIM2+1 


DEBSEC ; on passe aux autres points 


incrementation ligne. 


"© 
K 
CA 


PY 

£192 ;: derniere ligne ? 

CREPAL ; si oui, creation palette. 
DEBUT ; sinon, ligne suivante. 


* DECALAGE VERS LE PIXEL SUIVANT * 


ADIMI 
: 1° pixel d'un octet GS/PAINT 
+ X=2 
;: 2° pixel de l'octet GS/PAINT 
;: X=3 

NINC 
; X=4 

NEXT 
: X=5 
: X=6 NO. INC 
+ OPCODE DE LDA LONG 7 
; 2eme OCTET À DECORTIQUER 
; EN BANK 01 DECAL 
; X=1 


* 


RANG 
BIT2 
BITI1 
BIT3 
BIT2 
BIT, X 
BIT3 
CRECOUL 


| % 


pixel suivant 


Se Ne 


* CREATION DE LA PALETTE DE COULEURS * 


* 


* 





CREPAL 


TABLE 





LDX 
LDA 
STA 
INX 
CPX 
BNE 
RTS 


HEX 
HEX 
HEX 
HEX 


£00 ; Creation palette GS.PAINT 
TABLE, X ; La palette standard 
PALETTE,X ; est composée 

; des 32 octets de la table 
£32 ; ci dessous à raison de 
CREPAL+2 ; 2 octets par couleur 
0000770741082C07 
0F008000700F000D 
A9O0OFFO0FEO00DFO4 
AFOD8F07CCOCFFOF 


* LABORATOIRE * 


* 


* DISSECTION D'UN OCTET * 


LABO 


ROT 


STA 


* 


CASE 


£00 
CASE 
£00 
£00 
BIT, X 


£08 
ROT 


3 l'octet est rangé dans une case 
; de travail 


:BIT de droite va dans la retenue 


donc Accumulateur = retenue 
: le BIT est mis de coté 


D 


s dernier BIT ? 


* CALCUL DE LA COULEUR D'UN PIXEL HGR * 


* 


CRECOUL LDA 


PAIR 


IMPAIR 


EGUN 


BLANC 


ORANGE 


VERT 


BLEU 


VIOLET 


NOIR 


CMP 
BNE 


NOIR 
RANG 
£01 
IMPAIR 
COUL 
£00 
VIOLET 
BLEU 
COUL 
£00 
VERT 
ORANGE 
BITI 
£01 
BLANC 
BIT3 
£01 
BLANC 
RANG 
£01 
PAIR 
IMPAIR 


£15 


£06 


£10 


£04 


£03 


£00 





* 


; Bit du pixel en etude 


; Bit du pixel precedent 


du pixel suivant 


; Bit du pixel precedent 


; Bit du pixel suivant 


les 16 couleurs GS/PAINT sont 
codées comme suit : 

NOIR = O0 GRIS FONCE = 1 

MARRON = 2 VIOLET = 3 

BLEU FONCE = 4 VERT FONCE = 5 
ORANGE = 6 ROUGE = 7 ROSE = 8 
JAUNE = 9 VERT CLAIR = 10 
BLEU CLAIR = 11 MAUVE = 12 
BLEU MOY. = 13 GRIS CLAIR = 14 
BLANC = 15 

Dans les LDA ci-contre vous 
pouvez remplacer 6 par 7,10 par 


Ve Vo Se Ne Ve Ne Ne ee % % 


8 Ss 
î 


* RECONSTRUCTION D'UN OCTET GS/PAINT * 


# * 


————————_—————— 


etc... voire des valeurs de 
couleurs totalement différentes 


RECONS LDA FIRST ; premier pixel de l'octet 
ASL 
ASL 
ASL 
ASL 
STA OCTET 
CLC 
LDA SECND ; second pixel de l'octet 
ADC OCTET 
STA (LO.DS),Y ; (HI.DS LO.DS): adresse oct 
INC LO.DS ; GS/PAINT reconstitué. 
LDA LO.DS 
BNE RETOUR 
INC HI.DS 

RETOUR RTS 


* CALCUL DE L'ADRESSE DU PREMIER OCTET D'UNE LIGNE HGR 


* 





ADRESSE LDA PY 
LDY £00 
LDX £00 
JSR HPOSN 
LDA GBASL 
STA ADIM 
LDA GBASH 
STA ADIM+1 
RTS 


RARRRRRRRRRRRRRRRRRARRRARRÉRÉAÉRRÉRRÉARÉARRÉR 


* ROUTINE MOVE POUR TRANSFERER L'IMAGE * 


ol DE $00/1000 VERS $E1/2000 * 
ÉARARRAÉRRÉRRÉRRÉRRARRRRRRRRRRRRRRRRRRÉRARR 
COMP1 = $D6 ;COMPTEUR 256 OCTETS 
COMP2 = $D7 ; COMPTEUR 128*256 
MOVE LDA £00 

STA COMP1 

LDA £128 

STA COMP2 

LDX £00 
TOUR1 LDY £00 
SOURCE HEX AF001000 >; LDA EN BANK 00 
DESTIN HEX 8FO020E1 # STA EN BANK El 

INC DESTIN+1 

INC SOURCE+1 

INY 

CPY COMP1 :256 OCTETS ? 

BNE  TOUR1+2 

INC DESTIN+2 

INC SOURCE+2 

INX 

CPX COMP2 ;:128° BLOC DE 256 ? 

BNE TOURI 

LDA £00 ;ON RETABLIT... 

STA DESTIN+1 ;les adresses SOURCE et 

STA SOURCE+1 DESTIN comme elles ... 

LDA £$20 sétaient... 

STA DESTIN+2 ;au départ... 

LDA £$10 Zoo 

STA SOURCE+2 ;... 

RTS 
ÉRRRRRÉRRRRRRRRRRRRRARRÉ RÉ ÉRÉRÉARÉ RÉ AÉAÉARA RÉ É 
# V. et B. TOMENO * 


RRRRRÉRÉRÉÉÉARRÉÉRÉRÉRÉRÉRRÉRRÉRRRR ARR RAR RAR RAR ER RS 
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n guise de suite au 
programme du n° 
: g 22 de Pom’s 
Æ mm (dessins de courbes 
fractales sur Macintosh) et pour 
que l'Apple // ne soit pas en reste, 
voici un programme qui profite 
pleinement de la récursivité du 
Pascal pour aller un peu plus loin 
dans les espaces non entiers. 


Le programme Récursives 
propose huit options : 


Courbe de Von-Koch 


La courbe fractale la plus connue. 
(Se reporter au Pom'’s 22 pour sa 
construction) 


Triangle 


Une autre fractale dans laquelle 
chaque segment : 





est remplacé par : 


Pa ee 


en changeant à chaque fois le 
sens de rotation. 


Dragon 


Cette courbe illustre ce que l'on 
obtient en pliant une bande de 
papier un certain nombre de fois 
(2 par exemple) : 


——) 


et en la dépliant de façon que 
chaque pliure forme un angle 
droit : 


ce qui donne la courbe : 


Pom's n° 32 








A noter que les ordres proposés 


pour cette courbe vont de 1 à 6 


mais que l'ordre réel va de 2 à 12 


par pas de 2. 


Courbe de Péano 


Le principe est le suivant : un 
segment : 





est remplacé par : 


et chaque petit segment obtenu 
subit le même traitement. On 
obtient une courbe fermée en 
appliquant cette méthode à un 
carré et la courbe obtenue tend à 
remplir un autre carré. 

Hélas, la haute résolution de 
l'Apple // est bien vite prise en 
défaut. 


La courbe de Sierpinski 


(traduite d'un programme en 
langage C paru dans Micro- 
Systèmes) elle utilise 4 
procédures mutuellement récur- 
sives pour calculer les 
coordonnées de chaque sommet. 


Hexagone 


Un hexagone qui contient des 
hexagones qui contiennent des 
hexagones… 


Dentelle 


On partage un carré en 9, on 
inverse la couleur du centre et on 
recommence sur chaque petit 
carré. 


Sylvie Gallet 








Carrés 


Un carré dont les sommets sont 
prolongés par des carrés plus 
petits dont les sommets. 


Impression 


Si vous disposez d'un 
programme de dump sur 
imprimante, il vous suffit de le 
placer en librairie. Dans le cas 
contraire, toutes les instructions 
concernant l'impression doivent 
être supprimées du source. 


Sur les disquettes 
Pom’s…. 


…les fichiers sont transférables 
sur votre disquette Pascal 


- depuis la face DOS grâce à 
l'utilitaire Basic-Pascal livré 
avec ; 

- depuis la face ProDOS grâce à 
l'utilitaire Universal File 
Conversion édité par Quality 


Software. 
G 








uypes1i 
4 (0LZ ‘expio) urssep À # (0‘0p‘0) 10u 3rut 
urbeq 


4 pus 
pue 
(PuoT anou ‘91p10 AnoUu } urssap A 4 (09) uzn3 
4 (Puor anou ‘sxpz0 Anou } utssap À { (OZI-) uzn3 
4 (fuoT Anou ‘21p10 AnOU } urss2p A 4 (09) uzn3 








4 (Puor aAnou ‘s1p10 AnOU } UTssep À 





utbeq 
este 
{fuoT} sA1ow 
U9U3 Q = 21p10 JT 
4 £ ATP Puor =: Duor Anou 
{ I-21p10 =: 21p10 Anou 
uTsq 
4 18bsqut : s1p10 Anou ‘BuoT AnOU 1eA 
4 (z9baaut : Duor ‘’e1p10) urssep À #1npe2014 








4 pus 
(831ym) zoyooued { (o7Due) ojuin3 





4 (4A‘x) oJeaou { (euou) zopooued { 2731N33IUT 
urbeoq 











4 1obaquT : 21p10 








(x urssop op soznpo2oid seT sojnoq jUeTAuon #1npesord 23382 





(a20suoq) zeousid =: nuow 

8 [iDi tits laO1 11] + 39Su0q =: 38su0q 
: X7Ooy2 01304, ‘Zr'GI+001eu) obesseu 

4 (, zeaatnb - O, ‘or'e6zeu) obesseu 
(, zowtidur = J, ‘g’ebzewu) obessewu 





4 pue 
{( xroy2’, : o1pzo,) 3eouo2 ‘9 ‘obzreu) ebessaeu 
4 [[(XTOY2)yaBusT]xrToy2"",T,] =: 38su0oq 
ur5eq 
este 
pue 
[iP11@] = 3esuoq # (, urssep - a, ‘9’ebzxew) ebesseu 
utbsq 


uay3 , = XFOUD JT 





XTOYD 27 euino3o1 qe oqinoo onbeyo znod nueuw 87 242IJJE 





£ y20% uoA s1np2201d 


4 (aobequr : eybue ‘À x) 26y731Tutr e1np2201d 


4 1ey2 : osuodez 1eA 
4 oqano2 eurssep 2znpe201d 


4 pus 


uTrbsq 
4 e28proy2 : J32su0q PA 
4 1ey2 : ( Pur13s : XIOY2 ) nuaeu UOTJOUnT 





4 pus 
(TJe ‘s) o311m # (Â‘x) AxoJ06 
utbsq 
4 ( furz3s : s 4 1obaojutr : À ’x) ebessow e1npe2o1d 


4 pus 
y9 =: 1eousid 
4 uoq Traun 
(42) 331724 
uey3 {,2,°°, ,] UT 9 JT 
esre 
{(uos) 22114 
uay uoq jou JT 
4 Jesuoq uT y2 =: uoq 
4 19 =: y2 usy3 (pzeoq{2x) uTos JT 
4 (y2‘p1eoqgAsx) pesez 
1e9d21 
urbsq 
#4 uesrooq : uoq 
4 4ePy2 : 42 PA 
4 1849 : ( 229PTOU2 : J9su0oq) 1e29u91d uoTJOUnJ 


4 pus 
(pzeoqAÂsx) uroe Trqun 
4 (2105 ‘preoqAsx) peer 
2e9doz 
urisq 
4 1e8y2 : 310S IePA 
4 uznjoruerd s1npe2oxd 


(x Texousb J3218juUT,p ssznpo2oid #) 


4 2x9 : 1o1ded 
4 1e8y2 : osuodor ‘’owoy ‘uos ‘19 ‘’JJje 
4 126SJUT : T 


4 sqaino2 Jo [g°°]] ÂAeiie : 51577 184 


{ pus 
Dutz3s : Atu ‘wou 
P102991 2q2n02 
4 1ey2 70 28s e223proy2 edA3 
(x SeuuoTO2 Op Anod ÿD ‘ SeUUOTOZ (g Ue128 un 1InOd OZ x) 4 O2 = e0xIEW Jsu02 


[l 


(x UOT3DN13SUT 939302 euzeouo2 rnb 82 

ano3 3ewrzddns qne7] IT ‘UOUTS j2I1ITPIQII ue 

219jou 97 op sdws3 9352 TT ‘oJUPWIIAUT 21304 
znod 164 dump ep owwezbord un zone snon :S ;) { 10y dunp ‘’sorydeibsr31n sesn 


4 senarsin001 Soqino wex5o1d 


(x4+S$S%) 
(x LATTYO ®TATAS D$x) 


1X3L'IAISHN934 euwe1boidq 





Pom's n° 32 


13 


utbeq 


4 pus 
uTpe21 pus 
4 pue {Suas,Gp } uzn7 
(T‘buor’21pro)urssep d 4 (06) uzn3 4 ( fuor anou ’J-‘91p10 AnOU) uFsssep p {(Sues,06-) un 
urbeq 4 ( fuor anou ‘y ‘szp1o Anou) urssep p (suos,kGp ) uzn3 
OP ÿ 02 I =: I 10J utÉeq 
4 gp =: PuoT este 
este ((Suor)>unz3) eAaowu 
96 =: SuoT u2y3 Q = 21P10 JT 
u9y3 £ = 21P10 JT 2 IILOL'O » PuOT =: BuoT anou 
(Sb-’0’GEI) 16Y AruT (I-) x SU®S =: sues Anou 
uTsq # — 91p10 =: 81p10 Anou 
utÉeq 
pus 4 ex : Duor Anou 


4 pus 4 zebsqjutT : sues AnoU ‘’91p10 AnoUu zeA 


4 (sus, Gp) uan3 : PuoT { 15DojuT : suos ‘o1p10) urssep p s1npe2o1d 
4 (2DuoT) saow { (suas,;Gp ) Un {Ibuor} sAow 
(Sp ) uzn3 (ZbuoT) sAow (Sh ) uan3 (Tbuor) onow 4 uobezp sznps20o1d 
(Sb-) uzn3 (zbuor]) sAow (Sp-) uzn3 (Ifuor) oAow 
(Sp-) uzn3 (zDPuor} eAaow (Sp-}) uzn3 (TPuor) saow 
(Sp-) uzxn3 (zPuoT} enow {6p-} uzn3 (TBuoT) eanow 
(Sp } uzxn3 (zbuoT}) enow (Gp } uzn3 (IfuoT) enow 
(Sp ) uzn3 {gbuor) sAow (Sh ) uzn3 {IbuoT} sAaow uTpes1 
(sk ) uzn3 (25uor) saow # (Gp ) uzn3 (Ifuor) snow { (T'ONOT ‘ezpio) urssep 3 { (0‘0’21I) 204 Jjrur 
(Sh-) uzn2 (Z6uor) sAow {Sh-) uan3 (Ifuor) eaow 4 pus 
4 (SSESE "0 x DUOT) Dunz3 =: ZPUOT 6£& =: Duor : p 
4 g ATP BuoT =: IPUOT # G6z =: Duor : CET 
urbeq # 962 =: Buor : g°’Z°T 
este J0 o1p10 ose2 
pus utbsq 
‘buoT ‘’I-7}) utssep d 
‘£buotr ‘I-r) urssep d 4 pus 
‘£buotr ‘’I-1) urssep d pus 
‘£buor ‘’I-Tt) utssep d (SU2s,09 } uzn3 
’£buor ?I-1) urssep d (suos,r- ‘Duo Anou ‘o1p10 anou) urssep 2 (Sues,;09-) uxn3 
‘cbuor ‘’I-T) urssep d 4 (suos ‘’buoT Anou ‘o1p10 Anou) UTSsS®p 3 (Suas:09-) un 
‘£buor ‘I-1) urssep d (sues,1- ‘’buoT Anou ‘e1p10 Anou}) utss2p 2 (SUSS,09 ) uan 
‘£buotr ‘I-1) urssep d urbsq 
‘cbuor ‘I-1) urssep d este 
4 € Atp Puor =: EBuoT (fuor) snow 
urboq u8y3 0 = 21p10 JT 
Oui T'ST IT 4 g ATP PuoT =:Buor anou 
utÉeq 4 I-91p10 =:61p10 Anou 
4 1oboqutr : gbuor ’zbuor ‘’IBuoT 1eA utsq 
4 ( zobaqur : sues ‘Buoy ‘’1) urssep d e1nps201d 4 1ebejut : s1pio aAnou ‘’Buoy Anou 1eA 
4 ( 12baqut : suss ‘Duo ‘’s1p10) UTSSep 3 o1npeso1d 
4 zobejut : rt ‘Duor zea 
4 ouesd s1nps50o1d { 12b3quT : DuoT 1eA 
4 eTbuerT13 s1nps201d 


PR 


+) 


uypeeï { (09T ‘I ‘24P10) urssaep p 
4 21p10 ,; g =: 91p10 # (0‘£S‘69) 264 31uT 4 pue 


Pom's n° 32 











osTe 
pus 
(£ nrp BuoT ‘buoT+Â ‘buor+x) UISS2P 2p 
4 (2519191) U99819STITIJ 
(I-buor,z+#4 ‘Buor+A ‘’I-DuoT,z+x ‘DuoT+x) J10dM2TA 
ursq 
uouy3 I = Cyr JT 
op Z 03 0 =: [ 107 
OP Z 03 0 =: I 10] 
usy3 9 < BuoT JT 
utbeoq 


2 290aequtr : C’Tr 1ea 


{ zobequr : Puoy ‘À ‘x} urssop op e1npo201d 


4 sTreauep #1npa201d 


uTpeei 
(b9z) urssep y { (02T’66’662) 104 3FUT 
urbaq 


#4 pue 
pue 
pue 
(fuor Anou) urss2p 4 (09) uzn3 4 (fuoT Anou) eaow 
utÉeq 
op 9 03 [ =: 2702 10J 
4 (9E"0*PUOT) ounx3 =:Duot aAnou 
uTÉeq 
uey3 € < BUOT JT 
urboq 
4 zeboqjut : Duo Anou ‘2302 1eA 
4 (zebsaut : Puor) uUTSS2p y »1npe201d 


4 euobexey e1np2201d 


urpeoz 
o38a1ow (T) p 2202 
o03e41ou + (T1) € 2902 
oJe41ow _ (T) g 9302 
o39Aou _ {T) I 2302 


(T-T) I 2309 
A y+x=:x 
(4’x} ojenow ? 

(I-T) z 22302 

fu +X =: X 


(I-7) à 2302 
ÆAfytX=:X 
(A’x) 03910 * 
4 (T-7) € 8302 

£y-XxX=:x 


(T-7) € ®302 
ÆAty-X=:X 
4 (4’x}) o308now # 
2 (T-T) hp 2302 
£U-X=: x 


(I-T) bp 8309 

+4 =: AU -xX=:x%x 
(4’x) o3saow ? 

4 (I-T) I 2302 

+tÂ = A ty +x=:x 


zZebsjutT 
4 p1eMI0J ZebejuT 
4 piemioJ z2bazuT 
4 pIeMIOZ zebsjut 


28baqut 


pue 
(A‘x) o3eA1ow 
(I-7) p 8302 
x LC +X=X 
(4’x) oJ3saow 
(I-T) I 2309 
utTbsq 
uey3 0 < FT 3JT 
ut5aq 
4 I 9202 oznpo20o1d 


4 pue 
pue 
(4*x} o3enou 
(I-T) T 2202 
x £-A=: 4 
(4x) oJ3o40ow 
(T-F) & 2302 
utbaq 
ueuy3 0 < T JT 
utbeq 
4 Z 2302 eznpes0o1d 


4 pus 
pue 
{(4A’x) oJeA0ow 
(T-1) g 2309 
x Z-X=I x 
(4’x) o3e41ow 
(T-7) € 2302 
utbsq 
uoy3 O < T JT 
urbsq 
4 € 209 sznpe5o1d 


4 pue 
pue 
(4’x) o38410w 
(I-7) € 2902 
x St+tA =: 4 
(4x) oJ3s4ow 
(I-T) p 2309 
urbeq 
uey3 0 < T JT 
urbeq 
) hp 2209 oxnpe2oxd 


) £ ©2902 oxnposozrd 
} g 22302 sx:np2501d 
)} I #302 osznps5oxd 


HO TANENL EST Ten 
4 rxsurdiats s1nps201d 


Pom's n° 32 





“pus 


[sB: ‘50, ] UT esuodezr jraun 
4 pue 
#qino2 eutssep 
#4 (:0,) p40 - (esuods1i) p1io =: 7 
uTtÉeq 
uey3 ( [,b,*‘,0,] uT esuodez) jou JT 
2 (LD, 2,0 ‘581 ‘is T,:]) Zeousid =: ssuodsi 
42 (,2 X70y5 51301, ‘ez’6r+ob1eu) sbessou 
4 (, 282337n0b - DO, ‘’oz’sbzewu) sbessou 


{ wou*[t] o1s177 ‘’2+2,1'o01eu) obessouw 

Op 8 09 I =° F 207 

, ‘z‘obzeu) aebessaur 

,S8AISINDE1 SoqiNn02 9p 9961], ‘I ‘ob1eu) ebessaou 

4 (owoy) 22114 
2e0d91 
wou*{[g] 22STT 
wou*{£] 23STT 
wou*{9] 23STT 
wou*{[ç] 23STT 
wou*[p] 83STT 
wou*[£] 2238TT 
wou*[Z] 22S1IT 
wou-{I] 23STT 
(ZT) 149 =: ewoy 

ur5eq 


4 ,so11e9 
,9T193u8p 

4 ,ouobexey 

4 , TXSUTdI8TS 2p eq1n02 

4 ,Ouesg ®P eq1n02 

4 ,uobeip 

4 ,e7Puetr13 

4 ,y20Y uoA 2p eqgano2 

uos (62) 21y9 =? TJ® # (ET) 242 =: 


———,) 


[1D, /,0,] UT esuodez [run 
4 pus 
pue 
S911E2 
4 ertequep 
4 euobexey 
£ rysurdiets 
4 oueod 
2 uobezp 
4 erpuet1 
{ y20Y uoa 
Jo T ose2 
#4 (:0,) pio-(osuodei}) p10o =: 91p10 
ur5sq 
es7e 
pus 
(1er7ded}) 2eso72 
‘12 ‘1ao1ded) ur211M 


4 dump 
4 (02p10’, 91p10 ‘, ‘’zerded) uTe3121m 
uey3 [S°°T]J UT T JT 
4 ( wou*[Tt] ®3S171 ‘12 ‘ zorded) 23114 
£ (,:zoqutid, ‘1orded) e311m91 { uzn3ozus1d 


2 (, NYNnIaU zodej srnd ojuewridut,,] zozedoerd, ‘pr‘0} ebesseu 


1 


uTSsq 
uoy7 [its ‘11,] UT osuodsx JT 
uey3 ( [,D,‘,0,] UT esuode1i) Jjou JT 
4 (ATU*[Tt]93STI) nuow =: osuodez 
4 (wou*[t]93S1I1) UT®312M { (T’GI) Axo3o 
4 (swouy) 2211M{ 2pow3x2 
2e88do1 
(x 9q1n002 OUTSSEP x} urboq 


uTpe21 
4 puse 
(I'ZE) urssep 2 { (ÿ9) snow 
urÜsq 
Op pb 03 I =: TI 107 
4 (0‘b9'007) xPU Fur 
utbsq 


{4 pus 
(SUS»:06) uan 
este 
pus 
(PuoT) sAow 
4 pus 
(suesu‘Duoru) urssep > { (buo]) sAaow 


4 suas,]- =: suaesu { Z ATP Éuo 


uoy3 I < PuoT JT 
urbaq 
4 1Daqut : sussu‘DuoTu’T zeA 
4 ( 20baquT : sues ‘Duor) urssop > oznpe2o1d 


4 19S8JUT : I 1PA 


4 s211P2 e1npssoid 


uTpes1 
4 (bS'ST‘09) urssep ep { (0‘0‘0) 164 3TUT 
utTbsq 


4 pus 


(€ Atp Puor ‘C,buor+A ‘’t,Duor+#x) urssap sp 





15 


Pom's n° 32 















Pour l'Apple //, une commande externe ProDOS, 
Pour le Macintosh, un accessoire de bureau : 


sn Krupios 


ÔYMlioibYS"21-b1$) M 
à-æd0"nONÜOÇp!7 UÔ/V 


Kruptos est un utilitaire de cryptage disponible à | Revue 29 : 45,00 F 
tout instant. Kruptos rend inaccessible sans la clef _ 
de décodage tous les fichiers qui doivent rester Li ns 

Hole ! 1 t Apple /| 140Ko : 60,00 F 
confidentiels : courrier personnel, rappor Apple || 800Ko : 80,00 F 
professionnel, fichier de clients. Même les Macintosh : 80,00 F 
programmes et applications peuvent être protégés. 


Les deux versions de Kruptos sont des programmes Bon de commande 
Pom's, listés dans la revue n° 29. page 74 


Une disquette de jeux : 
Ludologic 





Au sommaire de la disquette LUDOLOGIC, trois 
jeux de réflexion de difficulté croissante. Ces 
jeux qui nécessitent des neurones aussi 
calmes qu'entraînés, ne devraient pas 
décevoir les amateurs de puzzles et autres 
casse-têtes. 











Il n'est pas nécessaire de présenter TAQUIN, 
ce pousse-pousse informatique ici fort bien 
présenté. 

Nouvelle difficulté, NOIR & BLANC : 37 
hexagones peuvent être noirs ou blancs mais 
au départ vous n'en connaissez pas la 
couleur. Chacun comporte un numéro qui 
représente le nombre de cellules voisines 
blanches. À vous de reconstituer le décor 
original ! 

HEXAGONE MAGIQUE est encore plus délicat, 
même principe que le carré magique, mais ici 
vous devrez installer les chiffres de 1 à 19 dans 
un hexagone de telle façon que les 5 
horizontales et 10 obliques totalisent chacune 
38 : bonne chance. 

















Fidèle à son habitude, Pom's vous propose sur cette 
disquette les sources des routines écrites par Sylvie 
Gallet en assembleur Lisa 2.5. Bien entendu, le Basic 
est également listable. TAQUIN et NOIR & BLANC 
Utilisent leur propre routine graphique qui permet de 
dessiner plus rapidement qu'avec des shapes. 












80,00 F Franco, 
Bon de commande page 74 
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foici un programme qui 
permet de disposer 
d'un écran virtuel de 
256 colonnes par 48 
lignes de texte (ou 128 
par 96). Bien entendu, 
il ne sera pas possible 
d'afficher l'ensemble 
Ë de l'écran, mais votre 
écran physique de 40 colonnes et 
24 lignes devient une fenêtre que 
vous déplacez dans les quatre 
directions grâce aux flèches du 
clavier. 

Pour ce qui est de l'usage de ce 
programme, elle dépend de 
l'imagination : stockage d'écran 
(jusqu'à 15), menus défilants, 
écrans type Visicalc. 


Principe de l'écran 
virtuel 


(0) HTVIR 
© 





En 256 colonnes, les lignes sont 
numérotées de 0 à 47, la variable 
VTVIR ($07) représentant le 
numéro de ligne. Les colonnes 
sont numérotées de 0 à 255, la 
variable HTVIR représentant le 
numéro de la colonne. 


L'écran 1 est localisé par les 
coordonnées du point À qui est le 
coin supérieur gauche de l'écran 
physique. 

Le point B localise l'écran 
inférieur droit qui a les 
coordonnées maximales pour la 
fonction d'affichage. 


L'écran 128 colonnes se présente 
ainsi : 


oQ 88 


: Le | 
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127 





Les commandes 


Les différents paramètres à - 
transmettre sont des variables 
Basic ou des constantes (A, AX, 
A(25), AX(25)...). 

Pour la présentation ci-dessous, 
les variables ont la signification 
suivante : 


LD Ligne début 

CD Colonne début 

VT VTVIR 

HT HTVIR 

LF Ligne fin 

CF Colonne fin 

LE Toutes les L lignes 

(Œ Toutes les C colonnes 
259 


216 


écran 2 


Home 
&H, LD, LF, CD, CF 


Effacement de tout ou partie de 
l'écran virtuel. Les 4 paramètres 
sont obligatoires ; pour effacer 
tout l'écran, il faut : 

256 col: &H, 0, 47, 0, 256 
128 col: &H, 0, 95, O, 127 

La fonction effacement ne change 
pas l'affichage physique. 


Copy 
&C, VT, HT 


Cette fonction copie l'écran 
physique de telle façon que le 
point VTAB 1 HTAB 1 soit placé 
en VT, HT sur l'écran virtuel. Le 
programme contrôle que VT et 
HT ne dépassent pas les 
coordonnées du point B. 


Window 
&W, VT, HT 


Fonction inverse de la 


précédente : on place la fenêtre 
définie par VT, HT sur l'écran 
physique. Mêmes contrôles. 








ge > 
és [ 
| 


H, Roy-Contancin 


Print 
&P, VT, HT 


Imprime sur l'écran virtuel le 
contenu de la variable définie en 
premier dans le programme. 
Cette variable sert de buffer 
d'impression. 
FO AS = "he 
20... 


REM définition 


175 ÀA$ = "Hello" 
180 &P,VT,HT : REM Affiche 


Ce PRINT n'a pas d'effet 
immédiat sur l'écran : &W, VT, 
HT le rend visible. 

Le PRINT virtuel respecte les 
fonctions NORMAL, FLASH et 
INVERSE du Basic. 

La variable de transfert (A$ dans 
l'exemple) doit être définie en 
premier dans le programme Basic 
(gare au D$ = CHRS$(4) 
fréquemment défini en tête des 
programmes.….). 


Grand cadre 
&K, 1 


L'écran virtuel est bordé de 
blancs inversés, très utiles pour 
repérer les limites. Attention, les 
fonctions &C et &P écrasent sans 
complexe le cadre. &K, 1 rétablit 
la situation. 


Quadrillage 
&K, 2, L, C 


Cette fonction trace le grand cadre 
et trace une ligne toutes les L 
lignes et une colonne toutes les C 
colonnes. 


Visualisation 
&V, VT, HT 


Par cette commande, VTVIR et 
HTVIR sont mis à VT et HT et la 
fenêtre peut être dirigée à votre 
gré à l'aide des 4 flèches (sur le 
][+, CTRL-K et CTRL-J 



















remplacent T et |). 
On sort de la visualisation par 


ESC: ou RETURN. Si 
l'utilisateur a pressé ESC, PEEK 
(9) = 141, s'il. a” pressé 
RETURN, PEEK (9) = 155. 
Turn page 

&T, 1 &T, 2 


Un écran virtuel peut en cacher 
un autre : 

La carte langage est constituée de 
2 banks de 4Ko et d'une partie 
commune de 8Ko. 

En 256 colonnes, les banks 1 ou 
2 contiennent 16 lignes et les 8Ko 
32 lignes. 

En 128 colonnes, les banks 1 ou 
2 contiennent 32 lignes et les 8Ko 
64 lignes. 

&T, 1 et &T, 2 permettent de 
choisir le bank utilisé. 


Colonnage 128/256 
Poke 10,0 


Affichage en 128 colonnes. Par 
défaut, 256 colonnes. 


Save page 
Call 37723 


Pour sauvegarder un écran, il 
convient d'en transférer le 
contenu de la carte 16Ko en 
$5180 par CALL 37723 puis de 
faire BSAVE PAGE, A$5180, 
L$4000 


Load page 
Call 37742 


Pour charger un écran, il convient 
de faire BLOAD PAGE puis d'en 
transférer le contenu en carte 
16Ko par CALL 37742. 


VIRCEL, 
programme de 
démonstration 


À titre de démonstration, .le 
programme VIRCEL utilise la 
plupart des commandes de l'écran 
virtuel. 


I1 permet de créer et de tenir à 
jour un écran géant de 128 


colonnes par 96 lignes, écran 
divisé en cellules pour tenir à jour 
un petit fichier d'adresses par 
exemple. 


La cellule est un rectangle d'un 
nombre de lignes et de colonnes 
définis à la création de l'écran, ce 
sont des cases dans lesquelles on 
peut stocker du texte à volonté. 


Une cellule est constituée d'une 
ligne titre (vidéo inverse) et de 1 à 
20 lignes de texte. 


Une ligne est constituée de 1 à 39 
caractères, le premier caractère est 
en vidéo inverse et il est 
inaccessible. 


titre 


Le menu 


Chargement d'un écran 


Le programme vous demande 
d'entrer le nom de l'écran voulu. 
Pour charger l'écran VIDEO, il 
suffit de taper VIDEO. 


Consultation 


Utilisation directe de &V, VT, 
HT. On déplace l'écran par les 
flèches et on sort par ESC ou 
RETURN. 


Mise à jour 

Il y a 3 phases à distinguer : 

1 Visualisation de l'écran : vous 
devez jouer avec les flèches 
pour que la cellule à modifier 
soit présente à l'écran puis 
faire RETURN. ESC permet 
d'abandonner la mise à jour. 


2 Affichage de * en vidéo 
inverse. 
Déplacer l'* de façon à la loger 
dans la cellule à mettre à jour, 
puis faire RETURN (ou ESC 
pour abandonner). 
Si vous faites sortir l'* de 
l'écran, on repasse en phase 1. 


Re nn eur. 
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3 Saisie du texte dans la cellule. 
La cellule choisie est placée 
dans le coin supérieur gauche. 


Création d'un écran 
Fonction très simple. 


Sauvegarde de l'écran 


Le programme demande le nom 
de l'écran, ce qui permet de le 
dupliquer. 


Note 


Ligne 1070 : les PEEK (33153) 
et 33154 servent à récupérer la 
taille d'une cellule (nombre de 
lignes et de colonnes). Ces 
informations ont été stockées à la 
création de l'écran (ligne 4175) 
dans les 2 premiers octets de la 
page 2, non utilisée par VIRCEL. 


Comment faire ? 


Vous avez la disquette d'accom- 

pagnement Pom'’s, pas de 

problèmes, vous disposez des 
fichiers nécessaires. Pour voir la 
démonstration, faire simplement 

RUN VIRCEL. 

Vous n'avez pas la disquette 

Pom's : 

1 saisir et assembler BIGTEXT, 
BIGPGM et BIGSAVE pour 
obtenir les fichiers BIGTEXT. 
OBJO, BIGPGM.OBJO et 
BIGSAVE.OBJO, 

2 saisir et sauvegarder la table 
BIGPTR, 

3 saisir, sauvegarder et exécuter 
le programme VIRPUZZLE 
qui, à partir des 4 fichiers 


ci-dessus, constitue ECR- 
VIRT. 

4 pour vous servir de la 
démonstration, saisir, 
sauvegarder et exécuter 
VIRCEL. 


G 


DhgrTool 


Dans le numéro 30 de Pom’s, un 
Couper/Coller énergique a fait 
perdre quelques octets à la 
récapitulation DHGRTOOL.0 ; la 
routine ne peut fonctionner qu'en 
ajoutant à partir de $0B96 : 

84 20 2B EB 60 
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Programme VIRPUZZLE 


L 


10 


REM 
DUREM,: 


VIRPUZZLE 
RASSEMBLAGE DES MORCEAUX 
HIMEM: 37248: REM PROTECTION DU PRO 


GRAMME 
20 DS = 


CHR$ (4) 

PRINT DS$S"BRUN BIGTEXT.OBJ0" 

PRINT D$"BLOAD BIGPTR,A$93D0" 

PRINT D$"BLOAD BIGSAVE.OBJ0" 

PRINT D$"BLOAD BIGPGM.OBJ0" 

PRINT DS$S"BSAVE ECR-VIRT,A$9180,L$480 





Programme ‘VIRCEL’ 


5 REM GESTION CELLULES TEXTE 


10 HIMEM: 20864: REM PROTECTION ECRAN V 
IRTUEL 

15 A$ = "A": REM PREMIERE VARIABLE DU PG 
M 

17 D$ = Ô(CHRS (4):B$ = " 

20 PRINT D$"BRUN ECR-VIRT": REM CHARGEM 
ENT 

30 POKE 10,0: REM ECRAN 128 COLONNES 

50 HOME : REM AFFICHAGE MENU 

60 : HTAB 10: INVERSE : PRINT "MENU": NOR 
MAL 

70 VTAB 4: HTAB 1: PRINT "l CHARGEMENT D 
‘UN ECRAN" 

80 VTAB 7: HTAB 1: PRINT "2 CONSULTATION 
CELLULES" 

90 VTAB 10: HTAB 1: PRINT "3 MISE À JOUR 
CELLULES" 

95 VTAB 13: HTAB 1: PRINT "4 CREATION D' 
UN ECRAN" 

98 VTAB 16: HTAB l: PRINT "5 SAUVEGARDE 
ECRAN" 

100 VTAB 13: HTAB 1: PRINT "4 CREATION D 
‘UN ECRAN # 

105 VTAB 23: GET E$: PRINT D$ 

110 IF E$ = "“l" THEN GOTO 1000 

120 IF ES = "2" THEN 2000 

130 IF ES = "3" THEN 3000 

140 IF ES$ = "4" THEN 4000 

150 IF E$ = "5" THEN 5000 

160 GOTO 50 

1000 REM CHARGEMENT ECRAN 

1020 HOME : PRINT "NOM DE L'ECRAN ": INP 
UT ES 

1030 IF LEN (E$) = 0 THEN 1020 

1040 ÔONERR GOTO 1020 

1045 PRINT "JE CHARGE" 

1050 PRINT D$"BLOAD ";E$",A$5180" 

1060 CALL 37742: REM TRANSFERT SUR CART 
E 16K 

1070 L = PEEK (33153):Y = PEEK (33154) 

1080 GOTO 50 

2000 REM VISUALISATION 


2005 VT = O:HT = 0 
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2010 
2020 
3000 
3005 
3010 
3020 
3021 


3025 
3030 
3031 
3035 
3040 


3050 
3060 
3070 
3080 
3085 
3086 
3088 
3090 
3100 
3110 
3120 
3200 
3210 
3300 
3310 
3400 
3410 
3500 
3510 
9512 


3514 
3516 
3518 
3520 


3530 
3540 


3550 
3560 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 


4000 
4030 








€ V,VT,AT 

GOTO 50 

REM MISE À JOUR 
VT = O:HT = 0 


& V,VT,HT: REM AFFICHAGE 
VT = PEEK (7):HT = PEEK (8) 
IF PEEK (9) = 155 THEN 50: REM ES 


CAPE 
V = 12:H = 20 

IF HT > 88 THEN HT 
IF VT > 72 THEN VT = 
& W,VT,HT 
INVERSE : 
: NORMAL 
GET ES$: 
IF À 


88 
72 


mx" 


VTAB V: HTAB H: PRINT 

PRINT D$:A = ASC (E$) 

21 THEN 3100 

IF À = 8 THEN 3200 

IF À = 11 THEN 3300 

IF À = 10 THEN 3400 

IF À = 27 THEN 50: REM 
IF ÀA < > 13 THEN 3030 

GOTO 3500 

DROITE 

= 40 THEN 3010 

+ 1: GOTO 3030 

= THEN 3010 

5: GOTO 3030 

THEN 3010 

: GOTO 3030 

= 24 THEN 3010 

+ 1: GOTO 3030 

MISE À JOUR EFFECTIVE 
: REM CALCUL DE VO, HO 

SY = Y + l:H1 = HT +H - 1:V1 = 
V - 1 

HO = SY * INT (H1 / SY) + 1:V0O = L 
ÆNTNTA(VT 1/00) 


ESCAPE 


Il 
H Hs 





VTT + 


IF VO + L > 95 THEN 3030 

IF HO + SY > 128 THEN 3030 
D1 = 0:D2 = 0: REM DEPLACEMENTS VER 
T/HORIZ 

V2 = VO:H2 = HO: 

TPOVO SU720THEN V2 = 172" DIV = YOU «7 
2 

IF HO > 88 THEN H2 = 88:D2 = H0 - 8 
8 

& W,V2,H2 - l: REM AFFICHAGE CELLU 


LE DANS LE COIN SUPERIEUR 


VTABU (IN EN DIT) RHTABN(INFN DZ) -NTNEUT 
T$: IF LEN (T$) = 0 THEN 3030: REM 
TITRE 

AS = LEFTS (T$ + B$,Y): INVERSE 

& P,VO,H0 

NORMAL : FOR J = 1 TO L - 1 

VTAB (JF '10+ Di): HTABU (1  D2) 0 


NPUT ES$ 


AS = LEFTS (ES + B$,Y): & P, VO + J, 
H0 

NEXT J 

GOTO 3030 

REM CREATION ECRAN 

HOME : HTAB 10: PRINT "CREATION D'U 








N ECRAN" 

4040 VTAB 5: HTAB 1: PRINT "NOMBRE DE LI 
GNES % 

4050 VTAB 8: HTAB l: PRINT "NOMBRE DE CO 
LONNES " 

4060 VTAB 11: HTAB l: PRINT "NOM DE L'EC 
RAN" 

4061 VTAB 5: HTAB 20: INPUT E$:X = VAL 
(E$) 

4065 IF X < 1 OR X > 20 THEN 4061 

4070 VTAB 8: HTAB 20: INPUT E$:Y = VAL 
(E$) 

4075 IF Y < 1 OR Y > 39 THEN 4070 

4080 VTAB 11: HTAB 20: INPUT E$: IF LEN 

(E$) = 0 THEN 80 

4090 & T,l: REM PAGE 1 

4100 POKE 10,0: REM 128 COLONNES 

4110 & H,0,95,0,127: REM HOME 


4120 D = X + 116K,2,L,Y0+1 


Source ‘BIGTEXT’ 


Assembleur Big Mac, 
format TEXT 
L'ARARHAARAAAAAAAHRHXX 
2 * PAGE GEANTE 

Nc HO: 

4 * H.ROY-CONTANCIN 
5 * 19/05/86 1.1 

6 *AAAAARARARHHAAHEX 

7 PAGE EQU $06 

8 VTVIR EQU $07 

9 HTVIR EQU $08 
10 SAVX EQU $09 
11 DIMI EQU $OA 
12 DIM2 EQU $0C 
13 ADR EQU $18 
14 ADP EQU $IlA 
15 RAM EQU $C083 
16 ROM EQU $C082 
17 LIG EQU $1C 
18 LIGP EQU $1D 
19 MAXV EQU $CE 
20 MAXH EQU $CF 
21 LONG EQU $1F 
22 LIGD EQU $F9 
23 LIGF EQU SFA 
24 COLD EQU $FB 
25 COLF EQU $FC 
26 PTR EQU S$FD 
27 SAVA EQU $FF 
28 GETBYTC EQU $E6F5 
29 SPPRINT EQU $9400 
30 SPCADRE EQU $9403 
31 SPVISU EQU $9406 
32 ADTX  EQU $9409 
33 INIADR EQU $940C 
34 ERROR EQU $D419 
35 ***-CHARGEMENT-ADRESSE 
36 ORG $9180 
17 LDA #$4C 


38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
99 
56 
57 
58 
29 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
7] 
78 
719 


STA 
LDA 
STA 
LDA 
STA 
RTS 


4130 
4140 
4145 F$ = E$ 


4150 


4160 
4165 


TENDEZ MERCI" 


4170 
4175 
4180 
4190 
5000 
5010 
5020 

£ 
5030 





$3F5 
#$90 
$3F6 
#$91 
$3F7 


**#-PRO-PRINCIPALE 


TAY 
LDA 
BEQ 
LDA 
STA 


E256 


NOPAG 
CMP 


PAG2 


PPTEST TYA 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 


DIM1 
E128 
#$00 
DIM1+1 
#$01 
DIM1 
#$30 
DIM2 


NOPAG 
#$80 
DIM1+1 
#$60 
DIM2 
PAGE 
#$02 
PAG2 
#$00 
SAVX 


PPTEST 


#508 
SAVX 


#$48 
BH 
#$43 
BC 
#$57 
BW 
#$50 
BP 
#$4B 
BK 


GOTO 50 

REM SAUVEGARDE 
PRINT "ENTREZ LE NOM DE L'ECRAN" 
INPUT E$: IF LEN (E$) 


GOTO 4145 


80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
121 
112 
123 
114 
215 
116 
117 
118 
119 
120 
121 





BH 
BC 
BW 
BP 
BK 
BT 
BV 


XAKHARHARAXARXARÉ 


*HOME 


INVERSE :A$ = E$: & P,0,1: NORMAL 
& W,0,0: REM MM AFFICHAGE RESULTAT 


VTAB 23: HTAB 1: PRINT "CONFIRMEZ P 
AR C" 

INPUT E$: IF E$ < > "C" THEN 4030 

& W,0,0: VTAB 23: HTAB l: PRINT "AT 


CALL 37723: REM TRANSFERT EN MEM 
POKE 33153,L: POKE 33154,Y 
PRINT D$"BSAVE ";F$;",A$5180,L$3010 


SPHOME JSR 


GB4 


SPHS 


JSR 
STX 
TXA 
CMP 
BCS 
JSR 
CPX 
BCS 
INX 
STX 
TXA 
CMP 
BCC 
JSR 
STX 
LDA 
BEQ 
CPX 
BCS 
JSR 
STX 
LDA 
BEQ 
CPX 
BCS 
CPX 


= 0 THEN 500 
























#$54 

BT 

#$556 
BV 

#$10 
ERROR 
SPHOME 
SPCOPY 
SPWIN 
SPPRINT 
SPCADRE 
SPCHPAG 
SPVISU 






ADTX 
GETBYTC 
LIGD 


DIM2 
ANOH 
GETBYTC 
DIM2 
ANOH 





LIGF 





LIGD 
ANOH 
GETBYTC 
COLD 
DIMI1+1 
GB4 
DIMI1+1 
ANOH 
GETBYTC 
COLF 
DIMI1+1 
SPHS 
DIM1+1 
ANOH 
COLD 
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122 BCC ANOH 184 INY 246 LDA SAVA 


123 BCS SUITHOM 185 LDA (PTR),Y 247 STA (ADP),Y 
124 ANOH LDX #$4D 186 STA ADP+1 248 PLA 

125 JMP  ERROR 187 RTS 249 TAY 

126 SUITHOM JSR INIADR 188 SPCOPY JSR CHMAX 250 INY 

127 LDX #$00 189 JSR INPUT 251 INC LONG 
128 BCLI CPX LIGD 190 SPCB1 LDA LIG 252 LDX LONG 
129 BCC HSUIT 191 CMP VTVIR 253 CPX #$28 
130 é CPX LIGF 192 BCC SPCLS 254 BCC SPWB1 
191 BCC HEFF 193 CLC 255 INC LIGP 
132 FIN LDA ROM 194 LDA VTVIR 256 LIGSUIT INC LIG 
133 RTS 195 ADC #$17 257 JSR AD80 
134 HSUIT INX 196 CMP LIG 258 CBC 

135 JSR AD80 197 BCC SPCFIN 259 BCC SPWDEB 
136 CLC 198 * ON STOCKE UNE LIGNE 260 SPWFIN LDA ROM 
137 BCC BCL1 199 JSR CALCADP 261 RTS 

138 HEFF LDY COLD 200 LDY HTVIR 262 SPCHPAG JSR ADTX 
139 LDA #$A0 201 LDX #$00 263 UJSR GETBYTC 
140 HEF2 STA (ADR),Y 202 STX LONG 264 CPX #$01 
141 CPY COLF 203 SPCB2 TYA 265 BEQ SPP1I 
142 INY 204 PHA 266 CPX #$02 
143 BCC HEF2 205 LDY LONG 267 BEQ SPP1I 
144 BCS HSUIT 206 LDA (ADP),Y 268 LDX #$3D 
145 *X*X#XX4X4xX% 207 STA SAVA 269 JMP  ERROR 
146 AD80 CLC 208 PLA 270 SPPI STX PAGE 
147 LDA ADR 209 TAY 271 RTS 

148 ADC DIMI1+1 210 LDA SAVA 272 *** CHARGER MAXV, MAXH 
149 STA ADR 211 STA (ADR),Y 273 CHMAX LDA DIM2 
150 LDA DIMI 212 INY 274 SEC 

151 ADC ADR+1 213 INC LONG 279 SBC #$17 
152 STA ADR+1 214 LDX LONG 276 STA MAXV 
153 RTS 215 CPX #$28 ZT LDA DIMI+1 
154 INPUT JSR ADTX 216 BCC SPCB2 278 SEC 

155 JSR GETBYTC LA INC LIGP 279 SBC #$27 
156 STX VTVIR 218 SPCLS INC LIG 280 STA MAXH 
197 CPX MAXV 219 JSR AD80 281 RTS 

158 BCS SPCERR 220 CLC 

159 USR GETBYTC 221 BCC SPCB1 ———————— 
160 STX HTVIR 222 SPCFIN LDA ROM Source ‘BIGPGM 4 
161 CPX MAXH 223 RTS l 

162 BCS  SPCERR 224 SPCERR LDX #$4D Assembleur Big Mac, 
163 LDA #$00 225 JMP  ERROR format TEXT 

164 STA LIGP 226 SPWIN JSR CHMAX 

165 STA LIG 227 JSR INPUT PREZZLZLILI I 1111111. 
166 STA ADR 228 SPWDEB LDA LIG 2 * PAGE GEANTE 

167 LDA #$D0O 229 CMP VTVIR 3 * 

168 STA ADR+1 230 BCC LIGSUIT 4 * H.ROY-CONTANCIN 
169 LDX SAVX 231 CLC 5 * 19/05/86 1.1 

170 LDA RAM,X 232 LDA VTVIR E RARAHEAEAAERÉEEX 

A7 LDA RAM,X 233 ADC #$17 7 VTVIR  EQU $07 

1122 LDA #$D0 234 CMP LIG 8 HTVIR  EQU $08 

173 STA PTR 235 BCC SPWFIN 9 SAVX EQU $09 

174 LDA #$93 236 * AFFICHER UNE LIGNE 10 LOMEM  EQU $69 

175 STA PTR+1 237 JSR CALCADP 11 ADR EQU $18 

176 RTS 238 LDY HTVIR 12%ADP EQU $1A 

177 ***#* CACUL ADP 239 LDX #$00 13 RAM EQU $C083 
178 CALCADP LDA LIGP 240 STX LONG 14 ROM EQU  $C082 
179 CT: 241 SPWB1 LDA (ADR),Y TONDTG EQU $1C 

180 ASL À 242 STA SAVA 16 LIGP EQU $1D 

181 TAY 243 TYA 17 LONG EQU $1F 

182 LDA (PTR),Y 244 PHA 18 INVFLG EQU $32 

183 STA ADP 245 LDY LONG 19 MAXV EQU S$CE 
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EE 
20 MAXH  EQU $CF 82 SPPERR LDX #$B0 144 BCC SPKFIN 
21 LIGD EQU $F9 83 JMP ERROR 145 SPC1 CPX #501 
22 LIGF EQU  $FA 84 SPPS JSR INIADR 146 BNE SPCERR 
23 COLD  EQU $FB 85 SPPB1 LDA LIG 147 JSR OPTI 
24 COLF EQU $FC 86 CMP VTVIR 148 SPKFIN LDA ROM 
25 SAVY EQU $FF 87 BEQ SPPMOVE 149 RTS 
26 TXTPTR EQU $B8 88 BCS SPPFIN 150 SPCERR LDX #$B0 

| 27 GETBYTC EQU $E6FS5 89 JSR AD80 151 JMP  ERROR 

| 28 DIMI1 EQU $0A 90 INC LIG 152 *** GRAND CADRE 
29 DIM2 EQU $0C 91 CLC 153 OPTI JSR INIADR 
30 AD80 EQU $925A 92 BCC SPPB1 154 OPTIL1 JSR TRAIT 
31 INPUT EQU $9268 93 SPPMOVE LDY #$00 155 OPTIS1 JSR AD80 
32 SPWDEB EQU $92F7 94 SPPM1 LDA (ADP),Y 156 INC LIG 
33 CHMAX EQU $934A 95 ORA #$80 157 LDA LIG 
34 ERROR  EQU S$D419 96 CMP #$CO0 158 CMP #$5F 
35 ***-CHARGEMENT-ADRESSE 97 BCS CFIN 159 BEQ OPTILF 
36 ORG $9400 98 PHA 160 LDX DIMI 
37 El JMP  SPPRINT 99 LDA INVFLG 161 CPX #$00 
38 E2 JMP SPCADRE 100 CMP #$7F 162 BEQ OPTIS2 
39 E3 JMP SPVIS 101 BNE CN7F 163 CMP #$2F 
40 E4 JMP  ADTX 102 PLA 164 BEQ OPTILF 
41 INIADR LDA #$00 103 ORA #$40 165 OPT1S2 LDA #$20 
42 STA LIG 104 CFIN AND INVFLG 166 LDY #$00 
43 STA LIGP 105 PHA 167 STA (ADR),Y 
44 STA ADR 106 TYA 168 LDY DIMI+1 
45 LDA #$D0 107 STA SAVY 169 DEY 

| 46 STA ADR+1 108 CLC 170 STA (ADR),Y 
47 LDX SAVX 109 ADC HTVIR 271 CLC 
48 LDA RAM,X 110 TAY 172 BCC OPTIS1 
49 LDA RAM,X 111 PLA 173 OPTILF JSR TRAIT 
50 RTS 112 STA  (ADR),Y 174 FINOPTI LDA ROM 
51 SPPRINT LDA VTVIR 113 LDY SAVY 175 RTS 
92 PHA 114 CLC 176 ***QUADRILLAGE 
53 LDA HTVIR 115 BCC CINY 177 OPT2 UJSR GETBYTC 
54 PAA 116 CN7F  PLA 178 STX LIGD 

[ns LDA DIM2 117 CLC 179 JSR GETBYTC 
56 STA MAXV 118 BCC CFIN 180 STX COLD 
57 LDA DIMI+1 119 CINY INY 181 JSR INIADR 
58 STA MAXH 120 CPY LONG 182 LDA #$00 
59 BNE SPPI 121 BCC SPPM1 183 STA COLF 
60 DEC MAXH 122 SPPFIN PLA 184 STA LIGF 
61 SPPI JSR INPUT 123 STA HTVIR 185 STA MAXH 
62 LDA ROM 124 PLA 186 OP2B LDA LIGD 
63 LDY #$00 125 STA VTVIR 187 CMP LIGF 
64 LDA (LOMEM),Y 126 LDA ROM 188 BNE TRCOL 
65 CMP #$41 127 RTS 189 JSR TRAIT 
66 BNE SPPERR 128 *AXAXHXHXXX 190 LDA #$00 
67 INY 129 ADTX LDA TXTPTR 191 STA LIGF 
68 LDA  (LOMEM),Y 130 CLC 192 CLC 
69 CMP  #$80 4231 ADC #$01 193 BCC LIGSUI 
70 BNE SPPERR 132 STA TXTPTR 194 TRCOL LDA COLD 
71 INY 133 LDA TXTPTR+1 195 CMP COLF 
72 LDA  (LOMEM),Y 134 ADC #$00 196 BNE COLSUI 
73 STA LONG 135 STA TXTPTR+1 197 LDY MAXH 
74 INY 136 RTS 198 LDA #$20 
75 LDA (LOMEM),Y 137 SPCADRE JSR ADTX 199 STA (ADR),Y 
76 STA ADP 138 JSR GETBYTC 200 LDA #$00 
77 INY 139 CPX #$02 201 STA COLF 
78 LDA (LOMEM),Y 140 BNE SPC1 202 COLSUI INC MAXH 
79 STA ADP+1 141 JSR OPTI 203 LDA MAXH 
80 CLC 142 JSR OPT2 204 CMP DIM1+1 
81 BCC SPPS 143 CLC 205 BEQ LIGSUI 





Pom's n° 32 





LIGSUI 


OPT2FIN 


xx 


TRAIT 


TRBL 


TRFIN 


LDA 
LDY 
STA 
INY 
CPY 
BEQ 
BNE 
RTS 


COLF 


TRCOL 
AD80 
#$00 
MAXH 
COLF 
LIG 
LIGF 
LIG 
DIM2 
OPT2FIN 
OP2B 
ROM 


#$20 
#$00 
(ADR) ,Y 


DIM1+1 
TRFIN 
TRBL 


X*X**X#XVISUALISATION 


SPVIS 


SPVISU 


BITI 


SPWAIT 


LDA 
JSR 
JSR 
DEC 
DEC 
JSR 
INC 
BNE 
INC 
BIT 
BPL 
LDA 
BIT 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
JSR 
JSR 
CLC 
BCC 


DIM1+1 
CHMAX 
INPUT 
MAXA 
MAXV 
SPWDEB 
S4E 
BITI 
$4F 
$C000 
SPVISU 
$C000 
$C010 
#$9B 
SPVFIN 
#$8D 
SPVFIN 
#588 
SPVGAUCHE 
#$595 
SPVDROITE 
#$8B 
SPVHAUT 
#58A 
SPVBAS 
INIADR 
SPWDEB 


SPVISU 


SPVGAUCHE LDA HTVIR 





268 INC HTVIR 
269 CLC 

270 BCC SPWAIT 
271 SPVHAUT LDA VTVIR 
272 BEQ SPWAIT 
2153 DEC VTVIR 
274 CLC 

275 BCC SPWAIT 
276 SPVBAS LDA VTVIR 
227 CMP MAXV 
278 BEQ SPWAIT 
279 INC VTVIR 
280 CLC 

281 BCC SPWAIT 
282 SPVFIN STA $09 
283 RTS 


Source ‘BIGSAVE’ 


Assembleur Big Mac, 


BEQ SPWAIT 
DEC HTVIR 
CLC 

BCC SPWAIT 


SPVDROITE LDA HTVIR 


CMP  MAXH 
BEQ SPWAIT 


format TEXT 

w à KÉAHAHAAARÉAAAAAHE 

2 *TRANSFERT-ECRAN 

3 *ENTRE-$5180-ET-CARTE16K 

4 ARR RELSLLESLSSESSLESS 

5 ADP EQU $18 

6 ADR EQU $lA 

7 RAM EQU $C083 

8 ROM EQU $CO82 

9 ORG $935B 
10 VERMEM LDA #$lA 
11 STA K1B2+1 
12 STA K2B2+1 
13 LDA #$18 
14 STA K1B2+3 
15 STA K2B2+3 
16 JMP TRANS 
17 VER16K LDA #$18 
18 STA K1B2+1 
19 STA K2B2+1 
20 LDA #$1A 
21 STA K1B2+3 
22 STA K2B2+3 
23 TRANS  LDA #$51 
24 STA ADP+1 
25 LDA #$80 
26 STA ADP 
27 LDA #$00 
28 STA ADR 
29 LDA #$D0 
30 STA ADR+1 
31 BANKI  LDA RAM 
32 LDA RAM 
33 LDX #$00 
34 K1B1 LDY #$00 
35 K1B2 LDA  (ADR),Y 
36 STA  (ADP),Y 
37 INY 
38 BNE K1B2 
39 INC ADR+1 





40 INC ADP+1 
41 INX 
42 CPX #530 
43 BNE K1B1l 
44 BANK2 LDX #$08 
45 LDA RAM,X 
46 LDA RAM,X 
47 LDA #$00 
48 STA ADR 
49 LDA #S$D0 
50 STA ADR+1 
OT LDX #$00 
52 K2B1 LDY #S$00 
53 K2B2 LDA (ADR) ,Y 
54 STA (ADP) ,Y 
55 INY 
56 BNE K2B2 
D INC ADR+1 

8 INC ADP+1 
59 INX 

0 CPX #$10 
61 BNE K2Bl 
62 FIN LDA ROM 
63 RTS 

/ 
Schémateur... 
suite 


Le programme de dessins de 
graphes et fonctions du numéro 
31 de Pom’s mérite un petit patch 
pour permettre la lecture des 
fichiers sur des disquettes ne 
contenant pas la routine de 
chargement rapide : 


+ _ Dans le programme 
Schémateur, 
Ajouter : 


2365 PRINT D$'"BLOADCHARGE. 
OBJ,A$9000" 


Modifier : 
2100 CALL 36864 
2390 CALL 36864 


+ Dans le programme Gravure, 


Ajouter : 

145 PRINT D$"BLOADCHARGE. 
OBJ, A$9000" 

Modifier : 

160 CALL 36864 : &"GRAV.C" 
, AG 

260 HGR : POKE 49234,0 : C 
ALL 36864 : &IM$,8192 























Réca itulation 92A8:60 20 4A 93 20 68 92 A5 94B0:85 B8 A5 B9 69 00 85 B9 
P 92B0:1C C5 07 90 2B 18 A5 07 94B8:60 20 AB 94 20 F5 E6 EO 
BIGPTR 92B8:69 17 C5 1C 90 2A 20 9A 94C0:02 DO 09 20 DC 94 20 0C 
92C0:92 A4 08 A2 00 86 1F 98 94C8:95 18 90 07 EO 01 DO 07 
Après avoir saisi cette table sous 92C8:48 A4 1F Bl 1A 85 FF 68 94D0:20 DC 94 AD 82 CO 60 A2 
moniteur, vous la sauvegarderez par 92D0:A8 A5 FF 91 18 C8 E6 1F 94D8:B0 4C 19 D4 20 OC 94 20 
BSAVE BIGPTR,A$300,L$30 92D8:A6 1F EO 28 90 E9 E6 1D 94E0:67 95 20 5A 92 E6 1C AS 
92E0:E6 1C 20 5A 92 18 90 C7 94E8:1C C9 5F FO 18 A6 OA EO 
0300:00 04 80 04 00 05 80 05 92E8:AD 82 CO 60 A2 4D 4C 19 94F0:00 FO 04 C9 2F F0 OE A9 
0308:00 06 80 06 00 07 80 07 92F0:D4 20 4A 93 20 68 92 AS 94F8:20 AO 00 91 18 A4 OB 88 
0310:28 04 A8 04 28 05 A8 05 92F8:1C C5 07 90 2B 18 A5 07 9500:91 18 18 90 DD 20 67 95 
0318:28 06 A8 06 28 07 A8 07 9300:69 17 C5 1C 90 2A 20 SA 9508:AD 82 CO 60 20 F5 E6 86 
0320:50 04 DO 04 50 05 DO 05 9308:92 A4 08 A2 00 86 1F B1l 9510:F9 20 F5 E6 86 FB 20 OC 
0328:50 06 DO 06 50 07 DO 07 9310:18 85 FF 98 48 A4 1F A5 9518:94 A9 00 85 FC 85 FA 85 
9318:FF 91 1A 68 A8 C8 E6 1F 9520:CF A5 F9 C5 FA DO OA 20 
r = = 9320:A6 1F EO 28 90 E9 E6 1D 9528:67 95 A9 00 85 FA 18 90 
Récapitulation 9328:E6 1C 20 5A 92 18 90 C7 9530:1D A5 FB C5 FC DO OA A4 
1 3 9330:AD 82 CO 60 20 09 94 20 9538:CF A9 20 91 18 A9 00 85 
ECR-VIRT 9338:F5 E6 EO 01 FO 09 EO 02 9540:FC E6 CF A5 CF C5 O0B FO 
Cette récapitulation 9340:F0 05 A2 3D 4C 19 D4 86 9548:05 E6 FC 18 90 E3 20 SA 
. : 9348:06 60 A5 OC 38 E9 17 85 9550:92 A9 00 85 CF 85 FC E6 
regroupe les objets ISSUS 9350:CE A5 0B 38 E9 27 85 CF 9558:1C E6 FA A5 1C C5 OC FO 
des trois sources et la table 9358:60 FB 00 A9 lA 8D 99 93 9560:02 DO BE AD 82 CO 60 A9 
BigPtr 9360:8D BD 93 A9 18 8D 9B 93 9568:20 AO 00 91 18 C8 C4 O0B 
F Fe 9368:8D BF 93 4C 7E 93 A9 18 9570:F0 02 DO F7 60 A5 OB 20 
Après avoir saisi ce code sous 9570:8D 99 93 8D BD 93 A9 1 9578:4A 93 20 68 92 C6 CF C6 
eu sauvegarderez par 9378:8D 9B 93 8D BF 93 A9 51 9580:CE 20 F7 92 E6 4E DO 02 
j T,A$9180,L$480 9380:85 19 A9 80 85 18 A9 00 9588:E6 4F 2C 00 CO 10 F5 AD 
9180:A9 4C 8D F5 03 A9 90 8D 9388:85 1A A9 DO 85 1B AD 83 9590:00 CO 2C 10 CO C9 9B FO 
9188:F6 03 A9 91 8D F7 03 60 9390:C0 AD 83 CO A2 00 AO 00 9598:45 C9 8D FO 41 C9 88 FO 
9190:A8 A5 OA FO OF A9 00 85 9398:B1 1A 91 18 C8 DO F9 E6 95A0:15 C9 95 FO 1A C9 8B FO 
9198:0B A9 01 85 OA A9 30 85 93A0:1B E6 19 E8 EO 30 DO EE 95A8:21 C9 8A FO 26 20 OC 94 
91A0:0C 18 90 08 A9 80 85 0B 93A8:A2 08 BD 83 CO BD 83 CO 95B0:20 F7 92 18 90 CE A5 08 
91A8:A9 60 85 OC A5 06 C9 02 93B0:A9 00 85 1A A9 DO 85 1B 95B8:F0 F3 C6 08 18 90 EE AS 
91B0:F0 07 A9 00 85 09 18 90 93B8:A2 00 AO 00 B1l 1A 91 18 95C0:08 C5 CF FO E8 E6 08 18 
91B8:04 A9 08 85 09 98 C9 48 93C0:C8 DO F9 E6 1B E6 19 E8 95C8:90 E3 A5 07 FO DF C6 07 
91C0:r0 1D C9 43 F0 1C C9757 93C8:E0 10 DO EE AD 82 CO 60 95D0:18 90 DA A5 07 CS CE FO 
91C8:F0 1B C9 50 FO 1A C9 4B 93D0:00 04 80 04 00 05 80 05 95D8:D4 E6 07 18 90 CF 85 09 
91D0:F0 19 C9 54 FO 18 C9 56 93D8:00 06 80 06 00 07 80 07 95E0:60 90 CF 85 09 60 00 00 
91D8:F0 17 A2 10 4C 19 D4 4C 93E0:28 04 A8 04 28 05 A8 05 95E8:BB BB 00 00 BB FB 00 O0 
91E0:F4 91 4C A9 92 4C F1 92 93E8:28 06 A8 06 28 07 A8 07 95F0:BB BB 00 00 BB FB 00 00 
91E8:4C 00 94 4C 03 94 4C 34 93F0:50 04 DO 04 50 05 DO 05 95F8:BB BB 00 00 BB FB BO 04 
91F0:93 4C 06 94 20 09 94 20 93F8:50 06 DO 06 50 07 DO 07 
91F8:F5 E6 86 F9 8A C5 OC BO 9400:4C 21 94 4C B9 94 4C 75 
9200:2F 20 F5 E6 E4 OC BO 28 9408:95 4C AB 94 A9 00 85 1C 
9208:E8 86 FA 8A C5 F9 90 20 9410:85 1D 85 18 A9 DO 85 19 
9210:20 F5 E6 86 FB A5 OB FO 9418:A6 09 BD 83 CO BD 83 CO Un collaborateur de 
9218:04 E4 O0B BO 13 20 F5 E6 9420:60 A5 07 48 A5 08 48 A5 Pom S vend : 
9220:86 FC A5 OB F0 04 E4 OB 9428:0C 85 CE A5 0B 85 CF DO 
9228:B0 06 E4 FB 90 O2 BO 05 9430:02 C6 CF 20 68 92 AD 82 Macintosh 512Ko 
me 4D 4C 19 D4 20 OC 94 9438:C0 AO 00 B1 69 C9 41 DO étendu à 1,5 Méga 
8:A2 00 E4 F9 90 08 E4 FA 9440:19 C8 B1 69 C9 80 DO 12 
9240:90 OB AD 82 CO 60 E8 20 0448:C8 B1 69 85 1F C8 B1 69 (carte Max), 
9248:5A 92 18 90 ED A4 FB A9 RS Lecteurs interne & 
9250:A0 91 18 C4 FC C8 90 F9 9458:90 05 A2 BO 4C 19 D4 20 externe 400K0, 
9258:B0 EC 18 A5 18 65 OB 85 9460:0C 94 A5 1C C5 07 FO OA ImageWriter 
9260:18 A5 0A 65 19 85 19 60 9468:B0 37 20 5A 92 E6 1C 18 MacPaint, MacWrite, 
9268:20 09 94 20 F5 E6 86 07 9470:90 FO AO 00 B1 IA 09 80 LSD Compta 
9270:E4 CE BO 78 20 F5 E6 86 9478:C9 CO BO OA 48 A5 32 C9 L 
9278:08 E4 CF BO 6F A9 00 85 9480:7F DO 15 68 09 40 25 32 
9280:1D 85 1C 85 18 A9 DO 85 0488:48 98 85 FF 18 65 08 A8 Domicile : 
9288:19 A6 09 BD 83 CO BD 83 9490:68 91 18 A4 FF 18 90 04 (16) 97 81 04 09 
9290:C0 A9 DO 85 FD A9 93 85 9498:68 18 90 EA C8 C4 1F 90 
9298:FE 60 A5 1D 18 OA A8 B1 94A0:D3 68 85 08 68 85 07 AD 
92A0:FD 85 1A C8 B1 FD 85 1B 94A8:82 CO 60 A5 B8 18 69 O1 
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DOS 3.3 
ProDOS 


e but de ce montage est 
de permettre à votre 
Apple favori de détecter 
la sonnerie du téléphone 

afin de provoquer 
l'exécution d'un logiciel (serveur, 
répondeur télématique, compteur 
d'appels, envoi ou réception de 
fichiers etc.). La présence de la 
sonnerie se traduit par la 
fermeture du bouton joystick n° 0 
c'est-à-dire G. La sonnerie 
détectée, le programme 
d'application devra se charger de 
décrocher la ligne, connecter le 
modem ou autre. 





Principe 


Le courant de sonnerie est un 
signal alternatif à 100 Hz. Le 
condensateur 2,2 EF ‘filtre’ ce 
signal qui est réduit à une tension 
raisonnable par la résistance de 
390 (2. Le pont de diodes et le 
condensateur redresse le signal 
qui devient continu et active le 


2,2 UF 
100 V 


Lt >— 


Que prise 
gigogne 


L2 
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Relais 9 Vi 





relais. Ce dernier se comporte 
comme un bouton de joystick et 
est connecté avec une résistance 
comme indiqué dans les Manuels 
de Référence Apple. À noter que 
l'Apple est à l'abri des soucis 
puisqu'il est isolé du réseau 
téléphonique par le relais. 


Le programme 


Dans le programme, il suffit de 
tester l'octet (-16287) : une 
valeur égale ou supérieur à 128 
indique que la sonnerie est en 
cours. En assembleur, le test du 
bit 7 donne l'indication : à 1 le 
téléphone sonne, à 0, il ne sonne 
pas. À noter qu'on peut simuler 
la sonnerie en pressant la touche 


a 

On peut s'inspirer du programme 
DETECT qui attend un certain 
temps avant de signaler la 
sonnerie : celà évite la détection 
des tintements parasites tels celui 
dû au raccroché du combiné. 


390 Q 


4x 
1 N 4004 


| 4700 
3 





Paul Courbis 


En pratique 


Le petit montage s'effectuera sans 
difficulté sur une plaque d'essai. 
L1 et L2 sont à relier à la prise 
gigogne standard intercalée entre 
la prise murale du téléphone et 
l'appareil téléphonique. Ces fils 
sont à connecter aux bornes 1 et 
3. Il ne faut pas oublier de relier 
les bornes des côtés mâle et 
femelle pour que l'appareil 
téléphonique fonctionne toujours. 
Côté Joystick, la numérotation de 
la prise correspond à celle de la 
DB 9 à l'arrière de l'ordinateur. 


G 


Programme 

DETECT 

10 A$ = "Le téléphone ne 5 
onne pas 

20 B$ = "Le téléphone sonn 
e LLA 

30 HOME 

40 PRINT : PRINT : PRINT 
: PRINT "Etat de la li 
gne :" 

50 FOR W = 1 TO 10: VTAB 
10: HTAB 1 


60 VTAB 10: HTAB 1 
JO TAN PEER (NT 6287) 


127 THEN NEXT : PRINT 
B$: GOTO 50 
80 PRINT AS$:W = 1: GOTO 6 
0 
Vers 
Apple D 


Prise Joystick 





Ps) 














objet d'Unimate, 
programme de Cirtech, 
# est d'utiliser les 
programmes DOS 3.3, 
Pascal ou CP/M sur les Unidisks 
3'5. Il permet de faire fonctionner 
sur un support plus plaisant et 
spacieux des applications 
allergiques à ProDOS ou 
difficilement transposables : voici 
un programme qui mériterait 
d'accompagner chaque lecteur 
800Ko.. 





Unimate est livré sur une 
disquette lisible en DOS 3.3, en 
Pascal et en CP/M. Il est 
compatible avec tous les Apple //. 
Depuis chacun des systèmes 
d'exploitation, les fichiers 
concernés sont copiables 
directement. 


Un démarrage sur la disquette 
Unimate donne accès à un mode 
d'emploi imprimable en anglais. 
Il est succinct car à part 
l'installation des drivers, 


l'utilisation est totalement 
transparente. 
La méthode retenue est 


l'installation d'une modification 
au DOS. Il convient de démarrer 
en DOS 3.3, puis d'exécuter le 
programme livré : le DOS en 
mémoire est alors modifié et il 
suffit d'initialiser des disquettes 
3'5 (ou 5'25) qui comporteront le 
nouveau DOS ; elles sont 
bootables. 


Chaque Unidisk 3'5 est reconnu 
en DOS 3.3 comme deux disques 
de 400Ko. Deux Unidisks en 
Slot 5 seraient reconnus comme 
étant : 

S5, DI 

S9 DZ 

S5,D3 

S5, D4 
Seule précaution, pour initialiser 
le disque du deuxième lecteur, 
faire INIT HELLO, D3 €t non pas 
D2, sinon. 
Les deux faces s'initialisent alors 
simultanément et le HELLO est 
installé en D3. 





Es 


le numéro de 
volume n'est plus vérifié sur 
l'Unidisk. 


Une limitation : 


Un FID adapté (nommé UNIFID) 
est également livré pour permettre 
les copies sur disques 3'5. 


Pascal 1.1, 1.2 


Les ‘drivers’ livrés permettent à 
Pascal 1.1 de reconnaître deux 
Unidisks comme étant les 
volumes 9 et 10 de 800Ko 
chacun. Pour la version 1.2, ce 
seront les volumes 19 et 20. 

Un nouveau FORMATTER livré 


autorise le formatage des disques 
525 et 35. 


CP/M 2.23, 2.20B 


Le driver nécessaire est installé 
par l'exécution d'un programme 
lors du démarrage. 

Pour CP/M 2.23, les Unidisk 
seront les volumes C: et D: ; E: 
et Fr: pour la version 2.20B. 
Chaque volume Unidisk 





comporte 788Ko. 


Un programme de formatage est 
également livré. 


Speedisk 


Grâce à Unimate, il est possible 
d'utiliser la carte Ram Speedisk 
sous DOS 3.3. La carte SP1000 
de 1 méga-octet se trouve alors 
reconnue comme les Unidisks : 
on dispose de deux lecteurs 
virtuels de 400 Ko sous DOS 
3.3. 


Place faite au DOS et au catalogue 
(qui accueille 216 fichiers), il 
reste disponible 2 fois 376 832 
octets pour les fichiers sur la 
carte. Un “plus” pour les 
applications allergiques à 
ProDOS. 


Unimate est distribué par Alpha 
Systèmes, 29, bld Gambetta 
38000 Grenoble. 











Unidisk 800 K 


rrer sur LÀ 





Effectivement, l'Apple //e ne considère pas que la carte contrôleur de 
l'Unidisk 800Ko est susceptible de le faire démarrer, même si cette carte 
est dans le port 6 et les lecteurs 140Ko en port 5. Pourtant, neuf fois sur 
dix, on souhaite utiliser le lecteur 3'5 ce qui conduit à un CTRL-RESET, 
suivi d'un PR£S au clavier : pas élégant. 

On peut laisser sur le lecteur 140Ko un programme Basic du style 
PRINT CHRS$(4)"'PR£5" mais c'est lent. La solution la plus rapide 
semble de mettre l'ordre PR£S5 sur le secteur 0 de la piste O de la 
disquette 5'1/4 : à l'aide d'un éditeur de secteur (Bag of Tricks, Copy 
J[+, Mobby Disk...), mettre les octets suivants : 


01 convention 


A6 2B LDX $2B arrête le lecteur 5 1/4 
BD 88 CO LDA $C088,X 
4C 00 C5 JMP $C500 = PR£S 


Le dernier octet est à remplacer par C4 pour un démarrage sur le port 4 
par exemple. Cette disquette de démarrage pourra alors rester à demeure 
dans le lecteur 140 Ko. 
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CAT, commande 
externe ProDOS a 
pour objet de lister 
Ew tous les fichiers d'un 
volume, qu'ils se trouvent au 
niveau 0 ou dans un énième 
sous-dossier. Il est écrit en 6502 
pour fonctionner sur tous Apple // 
sous ProDOS versions 1.1 et 
suivantes ; pour les versions 
antérieures de ProDOS, il faudra 
modifier le relogeur pour qu'il 
recherche lui-même la place en 
mémoire. 


Le source, abondamment com- 
menté, contient toutes les 
explications nécessaires à son 
utilisation maïs il reste quelques 
précisions à apporter. 


L'assembleur 
ORCA/M 


+ Le source occupe environ de 
50 % de la mémoire disponible 
(environ 36 Ko) il peut donc être 
saisi en une seule fois, confort 
non négligeable ; 


* si un commentaire est placé 
après une instruction, le point 
virgule n'est pas obligatoire ; 


+ anop permet de ne pas écrire 
d'instruction après un label (anop 
ne génère pas de code: c'est 
l'équivalent de ‘:" pour LISA) ; 


* keep xcat : le code généré est 
sauvegardé automatiquement 
sous le nom 'xcat' (équivalent du 
DSK de ProCODE) ; 


+ £<et£> signifient respec- 
tivement partie basse et partie 
haute ; 


+ ds n : réserve n octets en 
mémoire et les initialise à zéro ; 

- de il'nl,n2,..,np': définit 
les entiers n1, n2, ..., np chacun 
sur un oCtet ; 


- dc i2'label' : l'entier label 
est stocké sur deux octets (bas, 
haut). Cette instruction permet de 
stocker l'adresse label ; 


- de c'chaîne' : définit la 
chaîne de caractères "chaîne (bits 
740): 

+ les instructions implicites ASZ, 
LSR, ROR, ROZ doivent être 
suivies de A. 


Le fonctionnement 
de XCAT 


+ On commence par vérifier si la 
commande est bien XCAT : si ce 
n'est pas le cas, on en fait cadeau 


aux éventuelles autres 
commandes externes ; 
+ si c'est pour nous : on 


demande à ProDOS d'analyser 
les paramètres qui peuvent être 
soit un nom de volume, soit un 
numéro de slot et/ou drive ; 


* si un nom de volume est 
demandé, on utilise ON LINE 
pour savoir dans quelle unité il se 
trouve. S'il existe, on met le 
numéro de l'unité dans la table 
des paramètres de READ 
BLOCK ; 


- siS ou Dest utilisé, on calcule 
le numéro de l'unité et on termine 
comme ci-dessus ; 


+ on lit le bloc 2 de l'unité 
choisie, on vérifie qu'il s'agit 
bien d'un disque ProDOS ; dans 
l'affirmative, l'analyse peut 
commencer ; 


+ celle-ci se fait très simplement 
en lisant l'un après l'autre les 
blocs de ce catalogue et en 
analysant les 13 entrées de 
chaque bloc. Un catalogue ou 
sous-catalogue est terminé quand 
le chaînage avant est égal à 00 00. 





Au cours de l'analyse d'un 
catalogue, si on trouve le nom 
d'un sous-catalogue, on sauve 3 
octets sur la pile : le numéro du 
bloc en cours et le numéro de 
l'enregistrement, on procède 
ensuite à l'analyse du 
sous-catalogue : quand celui-ci 
est terminé, on dépile les 3 octets 
sauvés et on reprend le catalogue 


Exemple d'exécution 


SXCAT /SPDK/ 


CATALOGUE IMPRIME LE : 9-SEP-87 


NOM TYPE BLOCS MODIFIE 
SPDK 
MERLIN 
LIB 
ESSAI 
SENDMSG.S TXT 1 27-AUG-87 
OUTPUT.S TXT 3 27-AUG-87 
UTIL 
XREF BIN 5 27-AUG-87 
MON. 65C02 BIN 1 27-AUG-87 
SOURCE 
PI.START.S TXT 8 27-AUG-87 
PI.MAIN.S TXT 7 27-AUG-87 
PI.LOOK.S TXT 3 27-AUG-87 
PI 
START $r8 3 27-AUG-87 
MAIN $r8 1 27-AUG-87 
LOOK $r8 1 27-AUG-87 
DIV $F8 1 27-AUG-87 
MERLIN.SYSTEM SYs 37 27-AUG-87 
PARMS BIN 1 27-AUG-87 
PA.S TXT 1 27-AUG-87 
PA BIN 1 27-AUG-87 
CLvV 
PROC TXT 1 27-AUG-87 
cP13 TXT 1 27-AUG-87 
GH20 TXT 1 27-AUG-87 
MAB10 TXT 1 27-AUG-87 
c1708 TXT 3 27-AUG-87 
PRODOS SYs 32 31-AUG-87 
REBOOT SYs 4 27-AUG-87 
FILER sys 52 31-AUG-87 
KRUPTOS BIN 3 31-AUG-87 
STARTUP BAS 1 9-SEP-87 
INTERPOMS. V2 BIN 17 7-SEP-87 
COPIERAM TXT 11 31-AUG-87 
T.POMS BIN 9 31-AUG-87 
XCAT BIN 5 9-SEP-87 
BASIC.SYSTEM SYs 21 31-AUG-87 
CLV.POMS BIN 10 9-SEP-87 


BL LIBRES : 615 OCCUPES : 1433 


$ 
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précédent là où on l'avait laissé. 


L'utilisation de la pile permet une 
sauvegarde très simple des 
valeurs indispensables à la reprise 
d'un catalogue sans perte de place 
dans le programme et avec un 
contrôle très simple de la 
profondeur : le pointeur de pile 
étant sauvegardé au début, il 
suffit à la fin d'un sous-catalogue 
de comparer le pointeur actuel et 
le premier pour savoir si tout a été 
dépilé et si on est dans le 
catalogue principal. 


Remarque sur la page zéro 


La plupart des adresses libres en 
page zéro sont utilisées. Si on 
souhaite préserver le contenu de 
ces adresses, il est possible de 
sauver la page zéro dans le buffer 
de ProDOS (la moitié supérieure 
de ce buffer n'est pas utilisée par 
READ BLOCK)). 


Structure des 
catalogues et de la 
bitmap 





Le catalogue principal comporte 4 
blocs : n° 2, 3, 4 et 5. Chaque 
bloc est chaîné au précédent et au 
suivant. 


Les sous-catalogues comportent 
au minimum 1 bloc auquel 
peuvent être chaînés d'autres 
blocs si le nombre de fichiers est 
supérieur à 13. 


Chaque bloc comporte : 


octets $0 et $1 : 2 octets indiquant 
le n° du bloc qui le précède 
(c'est le chaînage arrière): 
contiennent 00 00 si ce bloc est 
le premier ; 

octets $2 et $3 : numéro du bloc 
suivant (chaînage avant) : 00 
00 si ce bloc est le dernier ; 


la suite du bloc est partagée en 
13 entrées de fichier de $27 
octets chacune ; 


il reste 1 octet inutilisé. 


La première entrée du bloc 2 ainsi 
que la première entrée de chaque 
premier bloc de sous-catalogue 
contiennent des informations 


relatives à la disquette ou au 
sous-catalogue et sont légèrement 








28 


différentes des entrées de 
fichiers. 


Bloc 2 1ère entrée 

(octets $4 à $2A). Elle contient 
l'en-tête du catalogue principal. 
XCAT utilise les octets suivants : 


$4 

+ type de fichier (4 Lers bits) : 
$0 fichier effacé ou inexistant 
ou effacé, 


® 
RC 


Mode d'emploi 


Si vous n'avez pas la disquette 
d'accompagnement Pom's, il vous 
faut saisir et sauvegarder le code 
XCAT. 

La commande externe est disponible 
après avoir tapé en mode direct : 


- XCAT 
OU, par programme : 
PRINT CHR$ (4) "-XCAT". 


Pour obtenir le catalogue étendu, 
taper simplement : 


XCAT /nom de volume/ OU 
XCAT ,Ss ,Dd 


s & d étant le numéro de port et de 
lecteur. 


Le listing peut être suspendu et 
repris à l'aide de la barre d'espace ; 
il est stoppé par CTRL-—C. 


@ 
LR 


$D fichier sous-catalogue, 
$E en-tête sous-catalogue, 
$F en-tête catalogue. 

+ longueur du nom de la 
disquette (4 derniers bits d'où 
la limitation à 15 caractères) ; 

$5 à $13. 
nom de la disquette ; 

$27 et $28 
numéro de bloc de la bitmap ; 

$29 et $2A 
nombre maximum de blocs du 
support. 


ler bloc de sous- 
catalogue, 1ère entrée 


On utilise seulement les octets $4 
à $13 (comme ci-dessus). 


Entrées de fichiers 


(Les numéros d'octets sont 
donnés par rapport au début de 
l'enregistrement). Les octets 
utilisés sont les suivants : 


$0 
type de fichier, longueur du 
nom (voir ci-dessus) ; 

$1 à $F 


type de fichier (BAS, BIN, 
EXT; 7): 
$11 et $12 
numéro du ler bloc du fichier ; 
$13 et $14 
nombre de blocs occupés par le 
fichier ; 
$21 et $22 
date de dernière modification 
du fichier (à lire à l'envers 
$22, $21). 


La bitmap 


Elle occupe généralement le bloc 
6. Chaque octet renseigne sur 
l'occupation de 8 blocs : un bit 
est à 1 si le bloc est libre et à O si 
le bloc est occupé. 
Sur une disquette 140 Ko il y a 
donc 35 octets utilisés (280/8) et 
200 octets pour une disquette 800 
Ko (1600/8). 

VU 


De 


Bibliographie 
Organisation d'une disquette 


ProDOS : 


+ Guide ProDOS P. Beaufils W. 
Luther, Éditions Sybex 

* Beneath Apple ProDOS, 
Quality Software 


Relogeur, commande externe : 
° numéros antérieurs de Pom's. 


G 
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; Relogeur très semblable à celui de POM'S n° 26 et 
Source XCATS ; légèrement modifié pour reloger les appels au MLI 
Assembleur ORCA/M 

; Il1 se charge d'installer la commande externe entre ProDOS 

: et ses buffers. 





























‘ commande externe XCAT permettant de lister le catalogue : Getbufr n'étant disponible qu'avec les versions ProDOS 1.1 
a et les sous-catalogues d'une disquette ProDOS ; ; et suivantes, une petite modification sera nécessaire pour 
‘ © Sylvie GALLET pour POM'S Juillet 1987 FT RER 
mn — sent ; initialisation P roDOS 
: Assembleur ORCA/M 1 
init lda æ1i 
list on cmp £$4C est-ce un JMP ? 
err on beq initl oui 
65816 off 1dy nonactif non -> affiche message et fin 
65c02 off nabcl 1da nonactif,y 
absaddr on jsr outdo 
keep /2/XCAT dey 
bne nabcl 
org $2000 rts 
main START initl Ida opencnt y a-t-il des fichiers ouverts ? 
beq init2 non 
+ EQUATES: lda £515 oui -> impossible placer la commande 
‘ sé ; message FILE(S) STILL OPEN 
jmp errout 
; adresses en page zéro: 
init2 Ida extrnomd+2 sauve adresse de la première 
sta precmd+2 commande externe 
length  gequ $2F longueur de l'instruction Ida extrnomd+1 
pcl gequ $3A adresse de la ligne désassemblée sta precmd+l 
al gequ $3C adresse de départ pour move 1da £>long demande d'un buffer de (A) pages 
a2 gequ $3E adresse de fin æ ad jsr getbufr 
a4 gequ $42 adresse d'arrivée " Lé cmp £$0C erreur ? 
bne gothen non 
nbloc gequ $6 nombre sur 2 octets (bas,haut) jmp errout oui -> affiche "NO BUFFERS AVAILABLE" 
temp gequ $8 : et fin 
longueur gequ $1A longueur de nom de volume 
debsscat gequ $1B indicateur de soulignement gothen sta adresse n° de la 1-ère page accordée par 
compteur gequ $1C compteur d'enregistrements dans cat. sta ad+1 ProDOS 
increm  gequ $1D décalage de début de ligne sta extrnomd+2 
pile gequ $1E sauvegarde du pointeur de pile 1da £>debut 
htab gequ $1F position horizontale du curseur sta al+1 
carte80c gequ $E3 flag : carte 80 col active (pour éviter da £<fin-1 
‘ de lui envoyer un form-feed sta a2 
bitmap gequ $EB numéro de bloc de la bitmap (bas, haut} 1da £>fin-1 
blocmax gequ $ED nbre max. de blocs du support (bas, haut) sta a2+#1 
lignes gequ $EF nombre de lignes affichées 1dy £0 
aa gequ $F9 année sty a4 les adresses de départ et d'arrivéé 
ram gequ $FA mois sty a1 sont alignées -> poids faible = 0 
53 gequ $FB Jour sty extrnemd+1 
adr gequ $FC adresse temporaire sr move déplace le programme 
ptr gequ $FE Ld = jsr reloge 
; sous-programmes moniteur et adresses système: ce 
Dons RAR TS ar ES ANR A TOR reloge lda adresse adresse de relogement 
sta pcl+l Li 
linprint gequ $ED24 affiche en décimal le contenu de À,X 1da £0 72 
insdsp2 gequ $F88C désassemble la ligne (pcl) sta pcl " 
move gequ $FE2C comme son nom l'indique rdecode ldx £0 nécessaire pour insdsp2 
prbyte  gequ $FDDA affiche (A) en 2 chiffres hexa 1da (pcl,x) 
kbd gequ $C000 lecture directe clavier beg rfin si 00 séparant programme et données 
kbstrobe gequ $C010 initialisation clavier jsr insdsp2 
1dy length Y = longueur instruction - 1 
+ ProDOS et BASIC.SYSTEM: cpy £2 instruction sur 3 octets ? 
FE RER TRE TETE bne rsuivant non -> pas de changement 
typnum gequ $B989 codes des types de fichier ayant une à rt Pere un appel au MLI ? 
: abréviation bne noali non 
typtable gequ $B997 table des abréviations dey peut-etre... 
mois gequ $B9C1 table des noms des mois Ida (pcl),y 
mli gequ $BFO00 point d'entrée de ProDOS cmp £<mli 
extrncmd gequ $BE06 saut vers commande externe bne nonli non 
errout gequ $BEO9 affiche erreur et fin dey 
badcall gequ $BE8B convertit code erreur MLI en BASIC.S 1da (pcl},y 
getbufr gequ $BEFS réserve (A) pages sous BASIC SYSTEM cmp £$20 est-ce un jsr ? 
xtrnaddr gequ $BES50 adresse commande externe bne nomli non 
xlen gequ $BES52 longueur de la commande 1da pcl oui -> avance pcl de 3 octets et 
xenum gequ $BE53 n° de la commande cle traite les 3 octets suivant jsr $BF00 
pbits gequ $BE54 paramètres autorisés adc £3 comme une instruction à reloger 
fbits gequ $BE56 paramètres effectivement trouvés : ( l'adresse du buffer n'a pas besoin 
vpathl gequ $BE6C vecteur vers la commande entrée ; d'etre relogée } 
syserr gequ $BF0F sta pcl 
xreturn gequ $BESE un RTS qui gagne à etre connu bec nomli 
vsiot gequ $BE61 n° slot trouvé inc pcel+1 
vdriv gequ $BE62 vrdcirene” nomli Ida pcl passage de paramètres pour calcul 
opencnt gequ $BE4D nombre fichiers ouverts sta adr 
vpath2  gequ $BE6E 2-ème nom de fichier 1da pcl+1 
devent gequ $BF31 nombre de lecteurs sta adr+1 
output  gequ $BE31 octet haut adresse du périph de sortie ldy length 
datesys gequ $BF90 date courante jsr calcul 
rsuivant lda length on passe à l'instruction suivante: 
long gequ fin-debut+$100 longueur du programme à reloger sec avec pcl = pcl + length 
adc pcl 
PR PE AR ES TRE TEE 7 LOI RUE 0 PE au sta pcl 
relogeur Ida pcl+1 


MR ee me meme 2 Oo Sd 0 








sta pcl+l 
sec distance (pcl) - adresse stockée dans 
sbc adresse A (MSB) et X (LSB) 
ldx pcl 
jsr test distance >= longueur du programme ? 
bcs rfin oui -> on a fini 
Jjnp rdecode non 
rfin rts 
test cmp £>fin-debut À < nbre de pages du programme ? 
bec oui oui 
bne non non et À > nbre de pages -> en dehors 
: du programme 
cpx £<fin-debut on est dans la dernière page: 
; X < poids faible de fin ? 
bcs non non -> en dehors du programme 
oui cic dans les limites 
rts 
non sec 
rts 
calcul dey 
lda (adr),y partie basse de l'opérande 
tax 
iny 
lda (adr),y partie haute de l'opérande 
sec 
sbc £>debut écart (en pages) entre adresse et début 
bcc nonc écart < 0 -> opérande en dehors des 
; adresses à modifier 
jsr test écart >= 0 -> écart > longueur du 
; programme ? 
bcs nonc non 
adc adresse oui -> on reloge 
sta (adr),y 
cic 
rts 
nonc sec 
rts 
adresse ds 1 adresse de début du programme relogé 


: 


de Sante ds 


ds $FF-(adresse-init) debut sera égale à $2100 











À propos de XCAT 





fonction de XCAT: 


catalogue étendu de tout support ProDOS, disponible en mode 
direct ou différé. 

- les noms de tous les fichiers sont affichés avec une indentation 
mettant en évidence les sous-catalogues. 

- I1 n'y a pas de limitation du nombre de niveaux d'emboitement 
des sous-catalogues (sauf le bon sens), l'indentation est 
seulement limitée à 24 caractères. 

-— Les noms de catalogues sont soulign 

- Les autres fichiers sont suivis du type, du nombre de blocs 

et de la date de dernière modification. 

- le nombre de blocs libres, occupés, total est affiché meme 

si xcat est interrompu avant la fin. 

- La date courante est affichée en tete du catalogue. 


installation: 


‘brun xcat' ou ’-xcat' 


utilisation: 


syntaxe: en mode direct: xcat /nomvolume/ , Ss , Dd 
en mode différé: print chr$(4)"xcat" suivi éventuellement 
de paramètres (constantes ou variables 
chaine). 
les paramètres sont optionnels : si on les omet, le lecteur 
par défaut sera utilisé. 


la présence de paramètres meme S et D ne modifie pas le prefixe 
par défaut. 


Arret temporaire et reprise du défilement avec une touche 
quelconque. 


arret définitif par CTRL-C: dans ce cas, on affiche '.....' 
pour signaler qu'il reste peut-etre des fichiers. 


la sortie se fait sur le périphérique en service ( écran 40 
ou 80 colonnes ou imprimante }, elle est évidemment plus 
claire en 80 colonnes. À l'imprimante, un saut de page est 
envoyé toutes les 60 lignes environ. 


messages d'erreur possibles : 


FILE(S) STILL OPEN : pour installer XCAT, tous les fichiers 





< 


z doivent etre fermés. 

: 1/0 ERROR : erreur de lecture disque ( bloc 

6 endommagé, lecteur couvert, disque non 

: ProDOS...). 

: SYNTAX ERROR : erreurs diverses dont un nom de volume 
£ incorrect ( trop ou pas assez de /, 

; nom de la forme / ou // , nom contenant 
; des caractères non autorisés }). 


: PATH NOT FOUND : le volume n'est pas en ligne. 


: RANGE ERROR : valeur en dehors des limites autorisées. 
; INVALID PARAMETER : si on utilise d'autres paramètres que 
: slot ou drive. 


+ PROGRAM TOO LARGE : 
; NO BUFFER AVAILABLE: 
+ PRODOS NON ACTIF x ° 4 


peu probable. 
" " 


RSR ee ee 














; programme à reloger 
debut cld nécessaire... pour faire raler Yvan Koenig !1 
1da vpathl vpath1i pointe sur la commande 
sta ptr entrée 
Ida vpathl+l 
sta ptr+l 
ldy £1 
compar ida (ptr),y compare la commande entrée et '"xcat' 
cmp command-1,y 
bne nocmd ce n’est pas pour nous 
iny 
cpy £4+1 commande ‘’xcat': 4 caractères 
bcc compar 
dey 
dey > y 3 
sty xlen 
lda £0 
sta syserr 
sta xcnum n° commande externe 
Ida £400010000 nom de fichier autorisé 
sta pbits 
1da £+#00000100 slot et drive autorisés 
sta pbits+#1 
versuite lda xsuite utile au relogeur seulement 
Ida versuite+1 adresse à laquelle ProDOS devra 
sta xtrnaddr nous rappeler après analyse 
lda versuite+2 des paramètres 
sta xtrnaddr+1 
clic retour à ProODS sans erreur pour 
rts analyse des paramètres 
nocmd sec utile si notre commande est la seule 
; ou la dernière pour signaler l'erreur 
precmd jmp xreturn saut à la commande externe 
; précédente 
syntaxer lda £$10 code de "SYNTAX ERROR' 
jap errout affiche le message 


; passons aux choses sérieuses... 


xsuite ldx £0 
Ida output 
cmp £$C3 carte 80 colonnes active ? 
bne no80c non 
dex oui -> carte80c = £$FF 
no80c stx carte80c 
ldy £0 
Iida fbits un nom de volume demandé ( fbits <> 0 } ? 
beq pasvol non 
pi oui (ptr) est toujours égal à (vpathl} 
lda (ptr),y longueur du nom 
sta longueur elle va servir 
cmp £3 longueur < 3 ? 
bcc syntaxer oui -> erreur (le nom doit contenir 
; au minimum 2 / et un caractère } 
tay 
Ilda (ptr),y lit le dernier caractère 
cmp £$2F LE AR à 
bne syntaxer non 
ldy £1 oui -> lit le 1-er caractère 
Ida (ptr),y 
cmp £$2F AO à 
bne syntaxer non 
chslash iny oui -> on cherche un "/" intermédiaire 
cpy longueur 
becs nomok 
Ida (ptr),y 
cmp £$2F A0? 
beqg syntaxer oui -> erreur 
cmp £$2E EU 
bne cs2 non 
cs1 cpy £2 oui -> en premier caractère ? 
beg syntaxer oui : erreur 
bne chslash non : autorisé 
cs2 cmp £530 < ro’ 
bcc syntaxer non 
cmp £$3A <= 19" ( $S3A = code de ':' } 
bcc cs1 oui ->,vérifier si pas en 1-ère position 
cmp £$41 <var 


Pom's n° 32 








bcc syntaxer oui and £$7F meme si le CTRL-C date un peu ( clavier 


cmp £$5B <= 12! ( 55B = code de ‘°' } cmp £3 remis en attente avec kbstrobe 
bcs syntaxer bne continue non 
bec chslash jmp ctrilc oui -> on écrit la dernière ligne 
nomok jsr nomvol continue ldy compteur 
jmp go lda lowb,y adresse relative de l'enregistrement 
pasvol Ida fbits+1 a-t-on fourni un paramètre s ou d ? cic 
bne calcunit oui adc himem calcul adresse absolue de l'enreg. 
lda $BFSA contient 0 si pas de prefix sta litbuftl 
beq dernier -> dernier lecteur utilisé 1da highb,y 
jsr mli adc himemtl 
de i1'$c7! code de GET PREFIX sta litbuf+2 
de i2'prefparm' ldy £0 
jsr mii jsr litbuf lit le 1-er octet de l'enregistrement 
de i1'$c6' code de SET PREFIX ; qui contient le type de sauvegarde . 
de i2'prefparm' ; du fichier et la longueur du nom: 
bcc dernier pas d'erreur ? ; octet de la forme tttt 1111 
ldx pile hélas, si ! beg suivant $0 si fichier inexistant ou détruit 
txs and £$F0 > À = tttt 0000 
jsr badcall cmp £$DO est-ce un sous-catalogue ? 
Jmp errout bne autres branche si autre que sous-catalogue 
dernier lda devent-1 non -> on prend la dernière unité accédée lda compteur c'est un nom de sous-catalogue 
5 {son numéro est en $BF30) pha -> on sauve le compteur et le 
bne stunit toujours 1da bloclu+1 numéro du bloc 
calcunit Ida vdriv contient 0000 00DD avec DD=01 (drive 1) pha 
3 ou DD=10 (drive 2) Ida bloclu 
and £$02 -> À = 0000 00D0 avec D=0 (drive 1} pha 
: ou D=1 (drive 2} Iida £$FF il faudra souligner 
asi à sta debsscat 
asl à -> À = 0000 D000 ldy £$11 pour lire le n° du 1-er bloc du 
ora vslot vsiot contient 0000 0555 jmp nouvbloc sous-catalogue 
‘ -> À = 0000 DSSS autres jsr espaces au retour, (Y) = 0 
sl à jsr lithuf 
asl à and £$0F -> À = 0000 1111 
asi a sta longueur 
asl a -> À = DSSS 0000 e 
stunit sta unite iny (Y) = 1 : début du nom 
affbcil jsr litbuf 
;cette fois, c'est vraiment parti jsr outdo 
iny 
go tsx la pile va servir de zone de dex 
stx pile stockage...sauvons le pointeur bne affbcll 
Ida £0 lecture du bloc 00 02 bit debsscat nom de cat ou sous-cat ? 
sta increm bmi alaligne oui 
sta bloclu+i jsr infos non 
sta compteur alaligne jsr crdo 
sta buffer bit debsscat on souligne ? 
sta debsscat bpl suivant non 
dec debsscat -> debsscat = $FF , on devra inc debsscat —> debsscat — 0 
+ souligner le 1-er nom de fichier jsr espaces oui 
; qui est celui de la disquette 1dx longueur 
1da himem+l himem contient l'adresse du buffer ida £$2D trait de soulignement 
sta buffer+1 brouillon de ProDOS affbcl2 jsr outdo 
lda £2 toujours pour le bloc 2 dex 
sta lignes bne affbcl2 
sta bloclu jsr crdo 
jsr litbloc inc increm 
Ida devent-1 numéro du dernier lecteur accédé inc increm 
cmp £$B0 est-ce le ram disk 64k ? (s3, d2) suivant inc compteur enregistrement suivant 
beq prodos si oui, inutile de vérifier les 3 premiers Ida compteur 
: octets du bloc 2 cmp £$0D déjà 13 fichiers affichés ? 
1dy £0 on lit les 3 premiers octets de ce bloc beq blocfini oui 
da (himem),y si <> 00 00 03 -> ce n'est pas un jmp analyseb non 
iny disque ProDOS ( les 2 premiers blocfini ida buffer on va lire les 2 octets de 
ora (himem),y correspondent au chainage arrière: sta litbuf+1 chainage avant (octets numéros 
bne noprodos nuls puisque ce bloc est le premier, da buffer+1 $2 et $3 du bloc) : c'est le 
iny le 03 normalement suivi de 00 sta litbuf+2 numéro du bloc suivant 
lda (himem),y correspond au chainage avant: bloc 1ldy £2 
cmp £3 suivant du catalogue } nouvbloc jsr litbuf 
beg prodos sta bloclu 
noprodos Ida £8 -> "1/0 ERROR' iny 
jmp errout jsr litbuf 
prodos ldy £$27 sauve le n° de bloc de la bitmap sta bloclu+1 
Ida (himem),y (octets $27 et $28 du bloc 2): il vaut . ora bloclu si 00 00 -> le dernier bloc vient 
z presque toujours 00 06 sauf pour /ram: 00 03 beg catfini d'etre lu 
sta bitmap lda £0 
iny sta compteur 
1da (himem),y Jmp blocsuiv 
sta bitmap+l catfini tsx pointeur de pile égal à sa valeur de 
iny cpx pile début ? ( <=> a-t-on tout dépilé ?) 
lda (himem),y nombre maxi de blocs du support beg termine oui -> catalogue principal terminé 
sta blocmax (octets $29 et $S2A du bloc 2} pla non -> on récupère le n° de bloc et 
iny sta bloclu le compteur précédents 
Ida (himem),ÿ « pla 
sta blocmax+1 Ÿ sta bloclu+1 
jsr crdo pla 
jsr datecat sta compteur 
Jsr crdo on va imprimer la ligne "NOM..BLOCS...." dec increm 
jsr crdo dec increm 
1dy titres jsr litbloc on relit le bloc précédent 
titrebcl 1da titres,ÿ jmp suivant 
jsr outdo ctric ldx £5 en cas de CTRL-C on imprime "....." 
dey lda £$2E Le Ci 
bne titrebcl asuivre jsr outdo 
fintitre jsr crdo dex Ÿ 
jsr crdo bne asuivre 
jmp analyseb inutile de relire le bloc 2 1dx pile on laisse les lieux comme on 
blocsuiv jsr litbloc txs les à trouvés 
analyseb lda kbd arret avec CTRL-C ? termine jsr crdo 
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t1 da 


t2 Ida 


t3 lda 


litbuf lda 
rts 


espaces ldy 
beq 
cpY 
bcc 
ldy 
espacbis lda 
espbcl jsr 
dey 
bne 
esprts rts 


;: imprime un 


noformf lda 


memepage lda 





crdo 
bitmap 
bloclu 
bitmap+1 
bloclu+1 
litbloc 
himem 
litbuf+1 
himem+1 
litbuf+2 
£0 

nbloc 


nbloc+1 
litbitmp 
litbuf+2 
litbitmp 
libres 
libres,y 
outdo 


ti 
impradr 
blocmax 


nbloc 
nbloc 
blocmax+1 
nbloc+1 
nbloc+1 
occupes 
occupes, y 
outdo 


t2 
impradr 
blocmax 
nbloc 
blocmax+1 
nbloc+1 
total 
total,y 
outdo 


t3 
impradr 
crdo 
kbstrobe 





11 ne reste qu'à afficher la ligne 
‘blocs libres..." 


lit la bitmap 


on va explorer 512 octets du buffer 


nbloc,nbloc+1 contiendra le nombre 
de blocs libres 


on va lire la 1-ère moitié de la bitmap 
2-ème moitié 


mention "blocs libres: ” 


imprime nombre de blocs libres 
calcule blocs occupés... 


mention "occupés: ” 


mention "total blocs: ” 


imprime total blocs 


pour ProDOS : pas d'erreur 








SOUS PROGRAMMES 





$8000,y 


increm 
esprts 
{ncmax 
espacbis 
incmax 


£$A0 
outdo 


espbcl 


retour ch 


lignes 
lignes 
£$3D 
memepage 
carte80c 
noformf 
debsscat 
memepage 
£$0oc 
outdo 

£0 
lignes 
£$EF 
htab 
£$8D 
outdo 


caractère 





: lecture d'un enregistrement du bloc lu 


adresse non significative, modifiée 
selon les besoins 


+ imprime les espaces de début de ligne 


y < incmax ? 

oui 

non -> y = incmax pour limiter le 
décalage à une valeur raisonnable 


ariot 


déjà 60 lignes affichées ? 


non 
oui -> 80 col active ? 

oui 

non -> nom de ss-cat ? 


oui 
non -> saut de page 


(A) ou un espace et incrémente htab 


outspace lda £S$A0 


outdo pha 


lda kbd une touche enfoncée ? 
bpl out non 
bit kbstrobe oui 
cmp £$83 ctrl-c ? 
beq out oui 
attends bit kbd non -> attend une nouvelle touche 
bpl attends 
bit kbstrobe 
out pla 
jsr $DB5C 
inc htab 
rts 


imprime le type, le nombre de blocs et la date 


infos 1dx htab le type commence en colonne 41 


cpx £$28 $28 = 40 


litbitmp lda £$0 


tay 
bmp1 jsr litbuf 
beq bmp4 octet = 00 -> on passe au suivant 
sta temp 
ldx £8 8 bits à ajouter 
Ida nbloc 
bmp2 1sr temp le bit bO tombe danc c... 
adc £0 .-.. et est ajouté à À 
bcc bmp3 
inc nbloc+l 
bap3 dex bit suivant ? 
bne bmp2 oui 
sta nbloc non 
bmp4 iny 
bne bmp1l octet suivant 
rts 


: lit et affiche le nombre de blocs occupés par le fichier 


blocs jsr outspace 
ldy £$13 nombre de blocs du fichier dans les octets 
jsr litbuf $13 et $14 de l'enregistrement 
sta nbloc 
iny 
jsr litbuf 
sta nbloc+l 


suivi immédiatement par impradr 


: imprime un décimal de 5 chiffres maxi cadré à droite 


;: ce nombre est contenu dans nbloc et nbloc+1 


: si le décimal est: 


; inférieur à 10 -> 3 espaces 10 - $ 00 OA 
3 compris entre 10 et 100 -> 2 LS 100 — $ 00 64 
;: compris entre 100 et 1000 -> 1 w 1000 = $ 03 E8 
; supérieur à 1000 -> 0 _ 


: + 1 espace pour le séparer de ce qui précède 


impradr ldy £0 


Ida nbloc+] 
cmp £3 nombre < $03 00 ? 
bcc b1 oui 
bne impbloc nombre >= $04 00 
Ida nbloc non 
cmp £$E8 nombre supérieur à $03 E8 ? 
bcs impbloc oui ( >= 1000 } 
bec i1sp nen ( < 1000 } 
b1 Ida nbloc+1 
bne i1sp nombre supérieur à 256 
lda nbloc 
cmp £$64 supérieur à 100 ? 
becs il1sp oui 
cmp £$0A non -> supérieur à 10 ? 
becs i2sp oui 
{ny non 
i2sp iny 
ilsp iny 
impbloc iny 
jsr espacbis 
lda nbloc+1 
1dx nbloc 
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jsr linprint jsr outspace -> un espace 
jsr outspace pla 
rts date1l jsr imprdate imprime le jour 
lda £$2D code de "-"” 
; imprime le type du fichier: jsr outdo 
Femme mme Ida mm calcul adresse relative du 1-er 
î soit par son abréviation asl a caractère du mois: mm * 3 
: soit sous la forme $xx adc mm 
tay 
; beaucoup de types possèdent une abréviation qui dépend Zldx £$3 3 caractères 
; du logiciel utilisant les fichiers. La liste des codes ms 1da mois-3,y table des noms des mois de ProDOS 
; est stockée à l'envers à partir de $B989 et est suivie jsr outdo 
+ de la liste des codes. iny 
dex 
type jsr outspace bne ms 
ldy £$10 le type de fichier est dans Ida £$2D LL 
jsr litbuf l'octet $10 jsr outdo 
ldx £$0D l4abréviations différentes da aa imprime l'année 
ldy £0 jsr imprdate 
typebcl cmp typnum,x (A) = code lu ? rts 
beq afftype oui sansdate ldx £$24 début du message "(NO DATE)" 
iny non affsd Ida mois,x 
iny jsr outdo 
iny inx 
dex au suivant ? cpx £$2D 
bpl typebcl oui bec affsd 
tax non ( À contient aussi le type } rts 
lda £$24 code de 'S$' 
jsr outdo imprdate tax imprime le contenu de À (MSB) 
txa Ilda £$0 et X (LSB) en décimal 
jsr prbyte imprime le type en 2 chiffres hexa jsr linprint ‘ 
jsr outspace rts 
rts 
afftype ldx £3 3 caractères à imprimer : lecture d'un bloc 
afftbcli lda typtable,y Y contient déjà l'offset du type J mmm——— — 
jsr outdo à afficher 
iny litbloc jsr mli 
dex de i1'$80’ code de READ BLOCK 
bne afftbcl dc i2'readparams' adresse table des paramètres 
jsr outspace bcc ok1 c = 0 -> pas d'erreur 
rts 1dx pile sortie en catastrophe 
txs 
; imprime la date d'impression du c jsr badcall traitement erreur 
jme jsr errout 
ok1 rts 
datecat jsr mli demande à ProDOS de lire la date, elle 
4 sera stockée dans datesys, datesys+l ; recherche des volumes en ligne 
de il'$82' code de GET TIME ancre RTE CET GT TES 
dc i2'0' uniquement pour faire joli !!! 
‘ GET TIME n'utilise pas de paramètre : On passe en revue les lecteurs en ligne dans l'ordre 
‘ mais une adresse est nécessaire après : croissant des slots et drives ‘jusqu'à ce que l'on 
; le code de l'appel : ait trouvé le volume cherché. 
lda £<datesys-$21 la routine date utilise Y=$21 et Y=*22 
sta litbuf+]l nomvol dec longueur longueur du nom sans les 2 / 
1da £>datesys-$21 dec longueur 
sta litbuf+2 Ida himem le meme buffer recevra le nom 
1dy msgdate sta bufferol de chaque volume trouvé par 
affmsg  lda msgdate,Y sta litbuf+1 ON LINE 
jsr outdo Ida himem+1 
dey sta bufferol+1 
bne affmsg sta litbuf+2 
inc ptr avance ptr d'un cran pour sauter 
; suivi immédiatement de date bne nomvoll le slash 
: affichage de la date de modification du fichier RCRpE 
RE PC APR PE NME RAR ARE D DEEE nomvoll ldx devent nombre d'unités connectées 
: onlinebcl lda devcnt+1,x le nombre trouvé est de la forme: 
; la date est stockée dans les octets $21 et $22 de Este SEEN CC COL EE NE 
: l'enregistrement avec le format G Ypo ter peere (disque CCI 
; ram...) -> on élimine tttt 
fi octet $22 octet $21 sta unitol 
î âa3a aaam mmmj jjjj jsr mli 
de il'$cs' code de ON LINE 
date jsr outspace dc i2'onlineparams' table des paramètres 
ldy £522 bcs unitsuiv erreur quelconque -> au suivant 
Jjsr litbuf 1dy £0 
beq sansdate jsr litbuf lit le 1-er octet du buffer qui 
cmp £$C8 octet $22 >= £$ C8 ? ( <=> année >= 100) sta temp contient: dsss 1111 où 1111 est 
bcs sansdate and £$0F la longueur du nom du volume 
sr a c = bit b0: fait partie du mois cmp longueur 2 longueurs égales ? 
sta aa bne unitsuiv non 
dey tay oui -> Y = longueur 
jsr litbuf lecture octet $21 compnom ÿjsr litbuf compare les noms de volumes 
beq sansdate cmp (ptr),y demandé et lu par ON LINE 
sta jj bne unitsuiv iis sont différents 
ror à on fait entrer la retenue à gauche dey 
1sr a et on garde b7..b4 par décalages bne compnom fini ? non 
isr a Ida temp oui 
isr à and £$F0 A = dsss 0000 
1sr a sta unite 
cmp £$0D mois > 12 ? rts mission accomplie 
bcs sansdate oui -> sans date unitsuiv dex unité suivante ? 
sta mm bpl onlinebcl oui 
ida jj Ida £6 non -> on n'a rien trouvé: 
and £$1F jour = b4..b0 : code de "PATH NOT FOUND' 
cmp £$20 jour >= 32? jmp errout insulte 
bcs sansdate oui -> sans date 
cmp, £$0A non -> jour < 10 ? 5; —— jm, 
bcs datel non ; bulle nécessaire au relogeur 
pha oui : 
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rien ds 1 lowb dc i1'$04,$2B,S$52,$79,$A0, $C7,$EE" 
de i1'$15,$3C,563,S8A, $B1, $D8' 
F tables et textes highb dc i1'0,0,0,0,0,0,0! 
; de il1’1,1,1,1,1,1° 
; Paramètres de READ BLOCKS ; ligne de titres du catalogue 
readparams anop titres dc i1'124' 
de 113" 3 paramètres dE Ce , 
unite de i1'$50" lecteur s5, di de ’ 
buffer ds 2 on y stockera l'adresse du buffer de i1'$8D' 
; brouillon de ProDOS de c'EIFIDOM SCOLB EPYT' 
bloclu ds 2 numéro du bloc à lire de c' MON! 
+ paramètres de ON-LINE: : textes et constantes 
onlineparams anop command dc c'XCAT’ 
de i1'2' 2 paramètres nonactif de i1'25,13,13,7" 
unitol ds 1 numéro d'unité de c'** FICTA NON SODORP **' 
bufferol ds 2 meme buffer que pour READ libres de il1'15" 
de c' : SERBIL SCOLB'’ 
; paramètres de GET-PREFIX et SET-PREFIX: occupes dc il'12’ 
nn ntnt dc cc: SEFUCCO) ! 
total dc i1'10" 
prefparm anop de c' : LATOT 
de i1'1” 1 seul paramètre msgdate dc i1’$17" 
de i2'$200' le buffer d'entrée de c' : EL EMIRPMI EUGOLATAC" 
incmax dc i1'24' décalage maximum de 24 caractères 


: adresses relatives des enregistrements d'un catalogue 

















j = fin gequ * 
END 
- - 

Récapitulation 2108:BE 85 FF A0 01 Bl FE D9 2250:00 CO 29 7F C9 03 DO 03 
XCAT 2110:34 26 DO 2D C8 CO 05 90 2258:4C 15 23 A4 1C B9 9E 25 

2118:F4 88 88 8C 52 BE A9 00 2260:18 65 73 8D 99 23 B9 AB 

2120:8D OF BF 8D 53 BE A9 10 2268:25 65 74 8D SA 23 A0 00 
Après avoir saisi ce code sous moniteur, 2128:8D 54 BE A9 04 8D 55 BE 2270:20 98 23 FO 54 29 FO C9 
vous le sauvegarderez par : 2130:AD 4A 21 AD 31 21 8D 50 2278:D0 DO 14 A5 1C 48 AD 96 
BSAVE XCAT, A$2000, L1685 2138:BE AD 32 21 8D 51 BE 18 2280:25 48 AD 95 25 48 A9 FF 

2140:60 38 4C 9E BE A9 10 4C 2288:85 1B A0 11 4C E2 22 20 
2000:AD 00 BF C9 4C FO OD AC 2148:09 BE A2 00 AD 31 BE C9 2290:9C 23 20 98 23 29 OF 85 
2008:39 26 B9 39 26 20 D6 23 2150:C3 DO 01 CA 86 E3 A0 00 2298:1A AA C8 20 98 23 20 D6 
2010:88 DO F7 60 AD 4D BE FO 2158:AD 56 BE FO 44 B1 FE 85 22A0:23 C8 CA DO F6 24 1B 30 
2018:05 A9 15 4C 09 BE AD 08 2160:1A C9 03 90 EO A8 B1 FE 22A8:03 20 F2 23 20 B1 23 24 
2020:BE 8D 44 21 AD 07 BE 8D 2168:C9 2F DO D9 AO 01 B1 FE 22B0:1B 10 16 E6 1B 20 9C 23 
2028:43 21 A9 06 20 F5 BE C9 2170:C9 2F DO D1 C8 C4 1A BO 22B8:A6 1A AS 2D 20 D6 23 CA 
2030:0C DO 03 4C 09.BE 8D E2 2178:22 B1 FE C9 2F FO C6 C9 22C0:D0 FA 20 B1 23 E6 1D E6 
2038:20 85 43 8D 08 BE A9 21 2180:2E DO 06 CO 02 FO BE DO 22C8:1D E6 1C AS 1C C9 OD FO 
2040:85 3D A9 93 85 3E A9 26 2188:EB C9 30 90 B8 C9 3A 90 22D0:03 4C 4F 22 AD 93 25 8D 
2048:85 3F AO 00 84 42 84 3C 2190:F2 C9 41 90 BO C9 5B B0 22D8:93 23 AD 94 25 8D SA 23 
2050:8C 07 BE 20 2C FE 20 5A 2198:AC 90 D9 20 3B 25 4C D8 22E0:A0 02 20 98 23 8D 95 25 
2058:20 60 AD E2 20 85 3B A9 21A0:21 AD 57 BE DO 21 AD 9A 22E8:C8 20 98 23 8D 36 25 OD 
2060:00 85 3A A2 00 A1 3A FO 21A8:BF FO 17 20 00 BF C7 9B 22F0:95 25 F0 07 AS 00 85 1C 
2068:50 20 8C F8 A4 2F CO 02 21B0:25 20 00 BF C6 9B 25 90 22F8:4C 4C 22 BA E4 1E FO 22 
2070:D0 2C Bl 3A C9 BF DO 19 21B8:09 A6 1E 9A 20 8B BE 4C 2300:68 8D 95 25 68 8D 96 25 
2078:88 Bl 3A C9 00 DO 12 88 21C0:09 BE AD 30 BF DO 0E AD 2308:68 85 1C C6 1D C6 1D 20 
2080:B1 3A C9 20 DO O0B A5 3A 21C8:62 BE 29 02 OA OA OD 61 2310:29 25 4C C9 22 A2 05 A9 
2088:18 69 03 85 3A 90 02 E6 21D0:BE 0A OA OA OA 8D 92 25 2318:2E 20 D6 23 CA DO FA A6 
2090:3B A5 3A 85 FC A5 3B 85 21D8:BA 86 1E A9 00 85 1D 8D 2320:1E 9A 20 B1 23 20 B1 23 
2098:FD A4 2F 20 C8 20 A5 2F 21E0:96 25 85 1C 8D 93 25 85 2328:A5 EB 8D 95 25 A5 EC 8D 
20A0:38 65 3A 85 3A A5 3B 69 21E8:1B C6 1B A5 74 8D 94 25 2330:96 25 20 29 25 A5 73 8D 
20A8:00 85 3B 38 ED E2 20 A6 21F0:A9 02 85 EF 8D 95 25 20 2338:99 23 A5 74 8D 9A 23 A9 
20B0:3A 20 BA 20 BO 03 4C 63 21F8:29 25 AD 30 BF C9 BO FO 2340:00 85 06 85 07 20 08 24 
20B8:20 60 C9 05 90 06 DO 06 2200:15 AO 00 B1 73 C8 11 73 2348:EE 9A 23 20 08 24 AC 53 
20C0:E0 94 B0 02 18 60 38 60 2208:D0 07 C8 B1l 73 C9 03 FO 2350:26 B9 53 26 20 D6 23 88 
20C8:88 B1l FC AA C8 Bl FC 38 2210:05 A9 08 4C 09 BE AO 27 2358:D0 F7 20 37 24 A5 ED 38 
20D0:E9 21 90 OC 20 BA 20 BO 2218:B1 73 85 EB C8 B1 73 85 2360:E5 06 85 06 AS EE E5 07 
20D8:07 6D E2 20 91 FC 18 60 2220:EC C8 B1 73 85 ED C8 B1 2368:85 07 AC 63 26 B9 63 26 
20E0:38 60 00 00 00 00 00 00 .  2228:73 85 EE 20 B1 23 20 %Æ 2370:20 D6 23 88 DO F7 20 37 
20E8:00 00 00 00 00 00 00 00 2230:24 20 B1 23 20 B1 23 AC 
20F0:00 00 00 00 00 00 00 00 2238:B8 25 B9 B8 25 20 D6 23 - 
20F8:00 00 00 00 00 00 00 00 2240:88 DO F7 20 B1l 23 20 B1 Suite page 37... 


2100:D8 AD 6C BE 85 FE AD 6D 2248:23 4C 4F 22 20 29 25 AD 
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es imprimantes Image- 
Writer et” DMP 
f possèdent un grand 
EE nombre de possibilités 
qui ne sont généralement pas 
exploitées par l'utilisateur. En 
effet, il faut lui envoyer des codes 
de commandes relativement 
complexes qui nécessitent 
souvent un programme particulier 
peu compatible avec d'autres 
logiciels, et dont les effets 
semblent quelquefois aléatoires. 


Heureusement le traitement de 
texte AppleWriter permet 
d'envoyer ces codes à 
l'ImageWriter et son langage de 
programmation le WPL (Word 
Processing Language) peut se 
charger de calculer les paramètres 
nécessaires aux commandes à 
envoyer. 


Le programme WPL.FILET se 
charge de tracer des filets 
graphiques décoratifs et centrés, 
pour encadrer un titre ou bien 
pour séparer des paragraphes, 
sans quitter le texte en cours, en 
incluant les caractères de 
commande dans le texte. Il 
fonctionne avec Applewriter, 
version DOS 3.3. ou ProDOS, et 
avec une imprimante de la série 
ImageWriter. 


Le principe 


Sur l'ImageWriter le code 
ESCAPE-Vnnnnc permet de tracer 
une ligne répétant nnnn fois 
l'image du code binaire ASCII du 
caractère c. Le problème consiste 
donc, une fois choisi le caractère 
c à calculer le nombre nnnn pour 
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obtenir la longueur de ligne 
voulue, et à ajouter à ce code un 
certain nombre d'espace pour 
obtenir une justification au centre 
correspondant à la longueur du 
filet à tracer et non à la longueur 
du code seul. Pour obtenir deux 
filets encadrant une ligne de texte, 
il faut de plus connaître le nombre 
de caractères de celle-ci. 
WPL.FILET se chargera de ces 
calculs. 


Fonctionnement 


WPL.FILET 

- insère un marqueur à l'endroit 

du texte où vous souhaitez 

opérer, 

compte le nombre de caractères 

du titre que vous voulez placer 

(s'il n'y a qu'un seul filet à 

tracer sa longueur est 

demandée à l'utilisateur), 

- multiplie ensuite ce nombre par 
8 pour connaître le nombres de 
points qui correspond à la taille 
de la ligne, 

- écrit ce nombre en respectant le 
format de 4 caractères (avec 
des zéros en tête si nécessaire), 

- ajoute ensuite des espaces pour 
obtenir une longueur de ligne 
correcte pour la justification au 
centre. 


Si votre texte ou votre ligne 
compte moins de 8 caractères 
(c'est-à-dire la longueur 
minimum du code de 
commande), la ligne sera allongée 
automatiquement. Si vous désirez 
une série de lignes de longueur 
décroissantes, le programme se 
chargera de calculer une ligne 
plus courte de 4 caractères au- 


Robert Coustal 


dessous de la précédente. 


Utilisation 


Deux possibilités : 
- taper CTRL-P DOWPL.FILET, 


- mettre le programme “sous la 
pomme” en utilisant le glossaire. 
Il faut faire CTRL-G puis ? et 
choisir un caractère pour faire 
exécuter le programme (par 
exemple ‘_”), tapez alors 


__CTRL-PDOWPL.FILET> 


suivi de Return (> dans 
Applewriter ProDOS ou $ dans 
Applewriter DOS 3.3.). Chaque 
fois que vous voudrez utiliser le 
programme tapez seulement ‘G_?. 


Le programme une fois lancé 
vous demande de taper votre titre 
ou <Return> si vous voulez 
seulement une ligne. Il demande 
ensuite le code du filet, 
c'est-à-dire le caractère dont le 
code ASCII dessinera le filet 
(chaque bit à 1 de ce code tracera 
une ligne horizontale). Vous 
pouvez essayer différent codes, 
(les caractères = V U u g mpar 
exemple, donnent de jolis filets), 
le programme vous fournit 
quelques exemples et vous 
pouvez une fois de retour au texte 
changer le caractère s'il ne vous 
convient pas. Si vous avez choisi 
d'encadrer un texte, <Return> 
seul en réponse à la demande du 
code du filet du bas conservera le 
même code que pour celui du 
haut. 


Les titres et les filets sont insérés 
à l'emplacement du curseur dans 


















































le texte et écrivent le code .JT 
d'Applewriter pour remettre le 
texte en justification totale. Vous 
pouvez changer .JT dans le 


caractères < > ?et Return 
(CTRL-H et le paramètre du 
souligné ne sont pas conseillés). 


chaque commande), et les 
exemples de codes au début. 
Sauver ensuite en faisant CTRL-S 
WPL.FILET. 


programme par .JG si vous Saisie 

D ton à gauche D'autre part, si votre Applewriter 
Il existe toutefois certaines Un programme WPL ne peut pas  ProDOS est patché pour ne pas 
limitations : on ne peut pas dépasser 2048 caractères. compter les caractères Escape en 


choisir des codes ASCII 
inférieurs à 128 et le code 255 du 
fait d'AppleWriter ; de plus, 


WPL.FILET étant un peu long, 
on peut supprimer les espaces 
inutiles en tête des lignes (en en 
conservant toutefois un avant 


justification totale il faut changer 
tous les PSX-7 en PSX-5 et les 
PSZ8 en PSZ6 pour obtenir un 











WPL.FILET intercepte les 


centrage Correct. 








CREATION DE FILETS GRAPHIQUES AVEC APPLEWRITER SUR IMAGEWRITER 














Programme WPL.FILET + 
VERI2 PSY(X) 
: PSZ8 
À saisir à l'aide d'AppleWriter. Pour en simplifier le BCL PSZ-1 
comptage, des espaces ont été replacés par des puces (°). PGODEC1 
PGOLI2 
DEC1 PSY-1 
DEBUT PND PGOBCL 
PPRI PGOVERI1 
PPR FILETS AUTOMATIQUES (R.Coustal/87) LI2 PSRCALC 
PPR === mm mm PSRBLANC 
PPR PINune autre ligne plus courte? (O/N):=$A 
PPRQuelques codes: PCS<$A<o< 
PPR PASO=$A 
PPRlignes:e+finese---e]arges----mixtes PCS<$A<O< 
PPR PGOAUTRE 
PPR l:eossoà essseseee"Ùx PQT 
PPR 2:°<A><B><D><P>esegnFeee<C>80"bz AUTRE F<<°°< 
PPR 3:ee°<R><I><T>(ee00ee0e=:!76ITWZjum O? 
PPR CHEÉLELERETELEEEEEEEEEEEEEE TETE: HHDXE 
PPR PSX$B 
PINTitre à encadrer (return filet seul) :=$A PSX-4 
PCS<$A<< PAS (X) =$B 
PGOLI1 PGOVERI?2 
PGOTITRE TITRE PSRPLACE 
LI1 PINLongueur en caractères:=$B F<<S$SA'< 
PSX$B o? 
PAS (X) =$B PSX0O 
PCS<$B<0< COMPT DHH 
PGOLI1 F<?<? <A 
PSRPLACE B s 
FILET PINCode du filet:=$C Fe << 
PSRFILTR o? 
PCS<$C<< D 
PGOFILET INC PSX+1 
PGOVERI2 GOBCLO 
VERI1 PSX+1 BCLO F<? << 


RE. Mat 2e 


36 
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0? PLACE F<<>,JC°*°,.JT>< 


PGOINC DOS KE Oo? 








TOTAL PSX-1 B 
B ProDOS PRT 
VERI3 PAS SA =$A CALC PSY(X) 
PSX+2 PSZ0 
PSY (X) *8 PS2+8 
PSZ8 PSY-1 
BCL1 PSZ-1 PGO*8 
PGODEC2 PRT 
PGOECRIT BLANC PSX-7 
DEC2 PSY-1 PAS=$A 
PGOBCL1 BCL2 PASSA -=$A 
PGOVERI3 PSXx-1 
ECRIT F<<1n$A7< PGOBCL2 
oO? CODE F<”"<>2vV>000 (2) $C>< 
PSRCALC o? 
HAUT PINCode du filet haut:=$C DHHHHHHXD 
PSRFILTR F<><$A>< 
PCS<$C<< 0? 
PGOHAUT PRT 
B FILTR PCS<$C</< 
PSRBLANC PRT 
BAS PINCode du filet bas:=$D PCS/$C/?/ 
PCS<$D<< PAS=$C 
PGOBAS2 PCS/$C/>/ 
PAS$D=$C PAS=$C 
PSRFILTR PRT 
PCS<$C<< 
PGOBAS 
BAS2 PSRCODE 1- mettre un CTRL-L (taper au clavier CTRL-V CTRL-L CTRL-V) 
POT 2- mettre Escape (taper CTRL-V ESC CTRL-V) 
2468:60 20 D4 23 AO 10 20 98 2580:A5 08 29 FO 8D 92 25 60 
.… Suite de la page 34 2470:23 A2 OD AO 00 DD 89 B9 2588:CA 10 CD A9 06 4C 09 BE 
2478:F0 14 C8 C8 C8 CA 10 F5 2590:00 03 50 00 00 00 00 02 
2480:AA A9 24 20 D6 23 8A 20 2598:00 00 00 01 00 02 04 2B 
2378:24 A5 ED 85 06 A5 EE 85 2488:DA FD 20 D4 23 60 A2 03 25A0:52 79 AO C7 EE 15 3C 63 
2380:07 AC 70 26 B9 70 26 20 2490:B9 97 B9 20 D6 23 C8 CA 25A8:8A B1 D8 00 00 00 00 00 
2388:D6 23 88 DO F7 20 37 24 2498:D0 F6 20 D4 23 60 20 00 25B0:00 00 01 01 O1 O1 01 01 
2300:20 1 23 2C 10 CO 18 60 24A0:BF 82 00 00 A9 6F 8D 99 25B8:7C 2D 2D 2D 2D 2D 2D 2D 
SSH HRAU E0 A4 an F0 10 2428:23 A9 BF 8D 9A 23 AC 7B 25C0:2D 2D 2D 2D 2D 2D 2D 2D 
2AA0:CC 94 26 90 03 AC 99 26 24B0:26 B9 7B 26 20 D6 23 88 25C8:2D 2D 2D 2D 2D 2D 2D 2D 
ANA 10 80 CN DE CA 64 DO 24B8:D0 F7 20 D4 23 AO 22 20 25D0:2D 2D 2D 2D 2D 2D 2D 2D 
23B0:60 E6 EF A5 EF C9 3D 90 24C0:98 23 FO 50 C9 C8 BO 4C 25D8:2D 2D 2D 2D 2D 2D 2D 2D 
Done al er on lnd 24 5 00 24C8:4A 85 F9 88 20 98 23 FO 25E0:2D 2D 2D 2D 2D 2D 2D 2D 
2300:08 A8 DC 20/06 23: A9:00 24D0:43 85 FB 6A 4A 4A 4A 4A 25E8:2D 2D 2D 2D 2D 2D 2D 2D 
does ele nue 20 00 24D8:C9 OD BO 38 85 FA A5 FB 25F0:2D 2D 2D 2D 2D 2D 2D 2D 
2300 20 DU ad en ni 24E0:29 1F C9 20 BO 2E C9 OA 25F8:8D 45 49 46 49 44 4F 4D 
23D6:00 CG 10 OF 2C.10 CO C9 24E8:B0 05 48 20 D4 23 68 20 2600:20 20 53 43 4F 4C 42 20 
A eo ee dire 24F0:22 25 A9 2D 20 D6 23 A5 2608:20 45 50 59 54 20 20 20 
2620010 C0 60 EE On E6 24F8:FA 0A 65 FA A8 A2 03 B9 2610:20 20 20 20 20 20 20 20 
DR AU ae Ie AS RO 20 Hé 2500:BE B9 20 D6 23 C8 CA DO 2618:20 20 20 20 20 20 20 20 
Dinar ED SU 2 Une 0e 2508:F6 A9 2D 20 D6 23 A5 F9 2620:20 20 20 20 20 20 20 20 
2100220 20 27 25 20 SA 21 60 2510:20 22 25 60 A2 24 BD C1 2628:20 20 20 20 20 20 20 20 
HADEEAS DD: HS 20088 20 FO 13 2518:B9 20 D6 23 E8 EO 2D 90 2630:20 20 4D 4F 4E 58 43 41 
2520:F5 60 AA A9 00 20 24 ED 2638:54 19 OD OD 07 2A ZA 20 
2410:85 08 A2 08 A5 06 46 08 
2418:69 00 90 02 E6 07 CA DO 2528:60 20 00 BF 80 91 25 90 2640:46 49 43 54 41 20 4E 4F 
2530:09 A6 1E 9A 20 8B BE 20 2648:4E 20 53 4F 44 4F 52 50 
2420:F5 85 06 C8 DO E5 60 20 
2538:09 BE 60 C6 1A C6 1A A5 2650:20 2A 2A 0F 20 3A 20 53 
2428:D4 23 AO 13 20 98 23 85 à 
2430:06 CB 20 98 23 85 07 AO 2540:73 8D 99 25 8D 99 23 AS 2658:45 52 42 49 4C 20 53 43 
2548:74 8D 9A 25 8D SA 23 E6 2660:4F 4C 42 OC 20 3A 20 53 
2438:00 A5 07 C9 03 90 OA DO 
2550:FE DO 02 E6 FF AE 31 BF 2668:45 50 55 43 43 4F 20 20 
2440:19 A5 06 C9 E8 BO 13 90 
waadern 25 07:00 00 AS 06 CS 2558:BD 32 BF 29 FO 8D 98 25 2670:0A 20 3A 20 4C 41 54 4F 
2560:20 00 BF CS 97 25 BO 20 2678:54 20 20 17 20 3A 20 45 
2450:64 B0O 06 C9 OA BO 01 C8 2568:A0 00 20 98 23 85 08 29 2680:4C 20 45 4D 49 52 50 4D 
2458:C8 C8 C8 20 A8 23 A5 07 2570:0F C5 1A DO 13 A8 20 98 2688:49 20 45 55 47 4F 4C 41 
2460:A€ 06 20 24 ED 20 D4 23 2578:23 D1 FE DO 0B 88 DO F6 2690:54 41 43 18 60 C9 
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Pour éviter les saisies fastidieuses 
et pas toujours fiables, Pom's 
met à votre disposition des 
disquettes d'accompagnement qui 
regroupent l'ensemble des 
programmes de la revue. 


Apple // 


Pour les Apple //, deux types de 
disquettes : 


+ _140K0, 5,25 pouces au prix de 
60,00 EF, fichiers en format 
DOS 3.3 au recto, en format 
ProDOS au verso ; 

+ 800Ko, 3,5 pouces pour 
Unidisk, au prix de 80,00 F, 
fichiers en format ProDOS 
seulement. 


Sur la 800Ko et la 140Ko face 
ProDOS (toutes deux nommées 
/POMS32), nous vous conseillons 
d'installer les fichiers ‘ProDOS”’ 
et ‘Basic.System’, ainsi la 
disquette sera bootable. 


Sur la liste ci-contre, les fichiers 
sont repérés ainsi : 


D : face DOS 3.3 de la 140Ko ; 
P : face ProDOS de la 140Ko ; 
8 : disquette 800Ko. 


Macintosh 


La liste ci-contre donne 
l'ensemble des fichiers de la 
disquette Mac, fichiers utilisables 
sur tous les types de Macintosh. 


Fichiers Apple // 


8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
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TRANSFORMEUR 
HGR.SUPHGR.C 
HGR.SUPHGR.S 
BIGTEXT 
BIGPGM 
BIGSAVE 
BIGPTR 
ECR.VIRT 
VIRPUZZLE 
VIRCEL 

VIDEO 

XCATS 

XCAT 
WPL.FILET 
COPY 

COPY.S 
COPIE.TF 
RECURSIVE.TEXT 
U.GESTABL.TEXT 
P.REPERT. TEXT 
DETECT 
RECURSIVE 
U.GESTABL 
P.REPERT 
BASIC.PASCAL 
BASPAC.OBJ1 


Programme (RUN ou -) 
Utilitaire pour Transformeur 
Source en format TEXT 
Source en format TEXT 
Source en format TEXT 
Source en format TEXT 
Table 
Code issu des 3 sources et de la table 
Pgm de création de ECR-VIRT (RUN) 
Pgm de démonstration (RUN) 
Écran de démonstration pour VIRCEL 
Source en format TEXT 
Objet (BRUN ou -) 
WPL à exécuter depuis AppleWriter 
Objet (BRUN ou -) 
Source en format TEXT 
Pgm Basic (RUN ou -) 
Ces trois programmes Pascal 
sont à convertir à l'aide 
d'Universal File Conversion 
Pgm Basic (RUN) 
Ces trois progammes Pascal 
sont à convertir à l'aide 
de Basic-Pascal 
Pgm de conversion DOS/PASCAL (RUN) 
Utilitaire pour BASIC.PASCAL 


Fichiers Macintosh 


Dossier Système 


Font/DA Mover 
Mots Croisés 
Grillel1 

mots croises.pas 


Accessoire 


‘fuseaux’ 


décalage.Asm 
mABcro.Txt 
CalEqu.Txt 


Contient ‘fuseaux’ installé et quelques 
éléments vitaux 

Pour installer ‘fuseaux’ 

Application du même nom 

Le problème posé dans ce numéro, page 73 
Source de l'application ‘Mots Croisés’ 


Fichier Font/DA Mover qui contient ‘fuseaux’ 
Source MDS 68000 de ‘fuseaux’ 
Fichier de macro-instructions pour ‘fuseaux’ 


Fichier d'équivalences pour ‘fuseaux’ 











cu 
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CLM. & BBDO. 


Apple, le logo Apple, Macintosh sont des marques déposées de Apple Computer Inc. 


Apple Expo 87 : inutile de taper 36.15 


pour que je vous montre tout. 





Si vous désirez vraiment taper 36.15 
(code d'accès : Villette, mot clé : Apple) 
ee trouverez Le ca renseignements 

iles à propos d'Apple Expo. 

Toutefois, si vous désirez faire des ren- 
contres intéressantes, ou tout simplement 
tout voir d’un coup d'œil décomplexé, 
nous avons toujours pensé chez Apple que 
rien ne remplacera les vraies expériences 
humaines, et surtout pas les machines. 

En fait, il s’agit d’un coup d'œil parti- 
culièrement panoramique puisque vous 
pourrez en 14.000 m? à travers 160 expo- 
sants contempler tout un univers, saculture, 
son présent et son avenir, celui d'Apple. 

Celui de votre Apple. 

Voyons d’abord ce que vous pourrez 


Apple Expo - La Grande Halle - La Villette. r== 


voir du 30 septembre au 3 octobre. 

Lorsque vous aurez vu l’ensemble des 
produits Apple et non Apple, mis au point 
par des développeurs extérieurs, vous 
pourrez contempler tous les logiciels dis- 
ponibles aujourd’hui sur l'Apple II ou 
Macintosh ; avec une attention toute parti 
culière pour les derniers-nés des Etats-Unis 
visibles en France pour la première fois. 

Au passage, n'oubliez pas de deman- 
der au Macintosh II de se livrer à une petite 
exhibition personnelle. 

Gardez un peu de votre temps pour 

er les domaines où Apple tient une 
place toute particulière, comme l’éduca- 
tion ou l'édition personnelle. 

Et si vous n'êtes toujours pas rassasiés, 





Du 30 septembre au 3 octobre. 


arrêtez-vous au village de formation pour 
demander à voir tout ce que vous n’auriez 
osé imaginer. 

En ce qui concerne les rencontres, rien 
n’a été laissé au hasard. Que ce soit 
au cours de l’une des nombreuses confé- 
rences, pendant un spectacle, au Club 
Apple, ou tout simplement au restaurant, 
vous rencontrez qui vous voulez. 

Apple Expo du 30 septembre après- 
midi au 3 octobre 1987. La Grande 
Halle - La Villette. Heures d’ou- 
verture : mercredi de 
12 h à 19 h, autres jours 
de 10 h à 19 h. Jeudi: 
journée professionnelle. 
Métro : Porte de Pantin. 





Apple 
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es anciens utilisateurs 
de l'Apple // se 
souviennent sans 
doute d'un logiciel 
miracle (pour son époque) : 
AppleWorks, qui existe toujours 
et a été perfectionné depuis. Dès 
l'origine, ce premier vrai intégré 
pour micro-ordinateur proposait 
trois fonctions : tableur, gestion 
de fichier et traitement de texte. 
La communication entre les 
fonctions se faisait, au moins 
partiellement, par Copier/coller 
grâce à un Presse-papiers, certes 
rudimentaire, mais qui préfigurait 
celui du Macintosh. Les 
différents modules étaient gérés 
par des commandes homogènes, 
très conviviales (pour ce type de 
matériel sans souris) et aisément 
mises en œuvre. Une fonction 
d'aide était accessible en 
permanence. 


Quand on aborde Microsoft 
Works, on est frappé par sa 
conception, rappelant sur bien 
des points celle d'AppleWorks, 
mais avec — évidemment — les 
progrès dus, d'une part au 
fonctionnement du Macintosh, 
d'autre part à la puissance du 
matériel. 


Works propose, outre les trois 
outils précédents, un grapheur 
associé au tableur, un module de 
courrier personnalisé par liaison 
du traitement de texte et de la base 
de données, et un module très 
complet de télécommunications. 
Les liaisons entre modules 
utilisent systématiquement le 
Copier/Coller, cependant que les 
liaisons avec d'autres logiciels se 
font par importation ou 
exportation de documents, ou 
encore par l'intermédiaire du 
module de communication. 


Pris individuellement, les outils 
sont classiques, possèdent les 


fonctionnalités indispensables, 
sans sophistication. Ils sont en 
conséquence faciles maîtriser et à 
mettre en œuvre. 


Pris ensemble, on apprécie le 
passage instantané d'une fonction 
à une autre, par simple activation 
de la fenêtre voulue, et la liaison 
elle aussi presque instantanée par 
le Presse-papiers. 


À noter une bogue gênante : 
Works, non seulement est 
incompatible avec l'Album, mais 
de plus une tentative d'utilisation 
se solde toujours par une 
“bombe” ! Espérons que 
Microsoft corrigera rapidement 
cette erreur. 


Le traitement de 
texte 


I1 ressemble beaucoup à 
MacWrite ou à Word. Il utilise 
classiquement une règle et 
possède les fonctions, également 
classiques, d'alignement, 
pagination, en-tête et bas de page, 
recherche et remplacement, etc. 


Ses “plus” 


+ la possibilité de juxtaposer face 
à face du texte et des dessins ou 
graphiques issus, soit de logiciels 
tiers, via le Presse-papiers, soit 
du grapheur intégré ; 

+ le transfert de caractéristiques 
de formatage d'un paragraphe à 
un autre par clic ; 

* l'existence d'une panoplie 
d'outils semi-graphiques 
intégrés : traits, encadrements, 
ovales, avec diverses épaisseurs 
de traits. 


Ses “moins” 


+ l'absence de fonction de mise 
en colonnes du texte, qu'on peut 





Philippe Mathieu 









cependant s'attendre à trouver 
dans un logiciel moderne ; 

+ l'absence de tabulateur 
décimal ; 

+ l'absence de glossaire et, quoi 
que l'importance soit sans doute 
moindre, de dictionnaire et de 
césure automatique. 


Le gestionnaire de 
fichiers 


I1 s'appelle un peu 
pompeusement Base de données, 
c'est en fait un honnête 
gestionnaire de fichiers, dont la 
conception ressemble beaucoup à 
celle de File (également proposé 
par Microsoft). 


Ses “plus” 


+ des possibilités très larges de 
sélection d'enregistrement par des 
associations de fonctions 
logiques ; 

+ de bonnes possibilités de 
caractérisation des champs et 
d'exécution de calculs sur les 
champs numériques ; 

+ des formatages des dates 
intéressants ; 

+ une grande facilité de définition 
d'un état, de sous-totaux et 
totaux, de sauts de lignes et de 
pages ; 

+ la possibilité de conserver des 
“gabarits” d'états. 


Ses “moins” 


+ pas de vue préalable des états à 
l'écran (seulement les résultats 
des totalisations) ; 

+ la limitation de la longueur 
d'un champ (nom + contenu) à 
une ligne de l'écran. 


Par ailleurs, il ne faut pas perdre 


de vue que ce gestionnaire est 
mono-fichier. 
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Le courrier 
personnalisé 


En associant un texte avec un 
fichier (ou plusieurs), on peut 
créer aisément un système de 
courrier personnalisé travaillant 
sur tout le (ou sur une sélection 
du) fichier. Il suffit d'indiquer, 
en position, les rubriques des 
fichiers à utiliser lors de 
l'impression, par choix dans une 
liste de rubriques présentées à 
l'écran. 


Ses “plus” 


+ une facilité extraordinaire 
d'utilisation ; 

+ la possibilité de voir à l'écran 
ce que sera exactement tel ou tel 
document imprimé (l'enregis- 
trement où se trouve le curseur 
étant utilisé pour cette vue 
préalable). 


Ses “moins” 


* on ose à peine le dire : le fait 
qu'il faille redemander l'option de 
préparation pour chaque champ à 
intégrer dans le document de 
traitement de texte. 


Le tableur 


Sa parenté avec le célèbre 
Multiplan, et peut-être plus 
encore avec Excel (deux logiciels 
signés Microsoft) est évidente. Sa 
capacité est de 230 colonnes et de 
9999 lignes, ce qui est très 
confortable. On y trouve une 
large panoplie de fonctions, un 
travail en références absolues ou 
relatives, internes ou externes, 
des options de formatage variées, 
pic: 


Ses “plus” 


+ la transposition aisée des lignes 
et colonnes, notamment pour la 
construction de graphes ; 

+ de nombreuses fonctions 
mathématiques, logiques, 
statistiques et financières ; 

* une bonne variété d'options de 
collage spécial ; 

+ la possibilté de découper la 
fenêtre en deux “panneaux”, 
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horizontalement ou vertica- 
lement ; 

+ la déplacement de cellules 
obtenu par clic. 


Ses “moins” 


* des fonctions de date et de 
chaînes de caractères 
inexistantes ; 

+ pas de possibilité de créer des 
formats personnalisés (comme 
c'est la cas avec Excel) ; 


Par ailleurs, il n'existe pas de 
macro-commandes associées au 
tableur. 


Le grapheur 


Il est associé au tableur, et permet 
de tracer des courbes, des 
diagrammes à barres 
(éventuellement combinés) et des 
diagrammes à secteurs 
(camemberts). Un graphique est, 
comme il se doit, mis à jour 
automatiquement par la feuille de 
calcul qui le sous-tend. 


Ses “plus” 


+ la possibilité de représenter des 
lignes de données disjointes (ce 
que ne permet pas un outil aussi 
puissant qu'Excel !) ; 

+ une échelle semi-logarithmique 
disponible ; 

+ la possibilité de conserver des 
“gabarits” utilisables en diverses 
circonstances. 


Ses “moins” 


+ la limitation à 4 séries de 
valeurs ; 

+ la représentation de séries de 
lignes uniquement (pour 
représenter des séries de 
colonnes, il faut passer par 
l'intermédiaire de la fonction 
Transpose, heureusement aisée à 
mettre en œuvre). 


La fonction 
communication 


Il est relativement rare de trouver 
aujourd'hui encore une fonction 
communication intégrée à un 
logiciel. Celle de Works est à la 
fois puissante et très commode 


d'emploi. On peut définir sur un 
écran les caractéristiques 
techniques de la communication, 
puis envoyer ou recevoir des 
messages (frappe directe au 
clavier), des textes (sans 
formatage), des fichiers (avec 
toutes les caractéristiques de 
formatage, en texte ou en dessin 
ou graphique). 


La rareté des options 
communication fait qu'il est 
difficile de parler de “plus” et de 
“moins” : par rapport à quoi ? 


Ce qu'on aime 

+ la très grande variété possible 
des spécifications techniques ; 

+ la possibilité de créer des 
“documents communications” qui 
mettent en mémoire les 
spécifications et un “annuaire 
téléphonique” personnalisé ; 

+ sous réserve de posséder le 
modem voulu, la numérotation 
automatique, la mise en réception 
automatique ; 

+ la facilité opératoire. 


Ce qu'on n'aime pas 
* rien de particulier. 


La liaison entre 
outils 


Elle utilise systématiquement le 
Copier/Coller, quels que soit les 
outils entre lesquels on veut 
établir un transfert de données, 
sauf : 

+ le courrier personnalisé, réalisé 
par une fonction particulière ; 

+ Ja liaison tableur-grapheur, qui 
est automatique. 


Ses “plus” 
+ l'instantanéité du passage d'un 
outil à un autre par ouverture (si 
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ce n'est déjà fait) ou activation de 
fenêtres ; 

+ la convivialité très poussée, à 
la Macintosh, du passage par le 
Presse-papiers. 


La liaison avec 
d'autres logiciels 


Elle peut se faire de trois façons : 


+ par le truchement du 
Presse-papiers, comme entre les 
fonctions de Works ; 

+ par lecture ou enregistrement 
sous forme de texte seul, pour les 
logiciels qui comportent cette 
possibilité (mais les options de 
formatage sont perdues), ou sous 
certains formats particuliers, par 


exemple SYLK ; 

* en utilisant le module de 
communication (pour les 
logiciels, Macintosh ou 


ordinateur tiers, qui disposent 
eux-mêmes d'un tel module ou 
peuvent en utiliser un). 


Ses “plus” 


+ de nombreuses solutions 
possibles, dans lesquelles on peut 


faire un choix en fonction du 
problème à traiter ; 

+ la grande facilité d'usage des 
liaisons par Presse-papiers ou 
module de communication. 


Ses “moins” 


+ la nécessité, si on sort des 
options simples, de bien 
comprendre la structure des 
documents produits par d'autres 
logiciels : format, caractères de 
contrôle,... (mais ce n'est pas 
propre à Works) ; 

* surtout, c'est là que se fait 
durement ressentir l'incompa- 
tibilité de Works avec l'Album. 


En résumé 


Pour 


Un logiciel pour lequel on est 
parfois tenté d'utiliser l'adjectif 
génial, en particulier pour son 
module de communication, sa 
fonction de courrier personnalisé 
et la facilité de commutation et de 
liaison entre outils. 


Une très grande facilité 


d'utilisation, parfois au détriment 
de la puissance, mais jamais au 
détriment de la rapidité. 


Contre 


Quelques lacunes regrettables, 
comme l'absence de colonnage 
dans le traitement de texte ou de 
fonction de date dans le tableur. 
Et surtout, l'incompatibilité avec 
l'Album, générant une bombe et 
une ‘grave erreur système”. 


Un bilan très largement 
positif 


Works peut fort bien être le 
logiciel unique pour les 
besoins courant de la plupart de 
ces “travailleurs du savoir” chers 
à nos amis d'Apple, certains 
d'entre eux étant amenés par 
ailleurs à utiliser des logiciels 
spécialisés de leur profession ou 
de leur technicité. 


ÊTES 


Tirez le macsimum de votre Macintosh. 
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Le journal 
du Hocintosh 


Gagnez 

un disque dur 
20 mégas 

en élisant 

vos icônes d'or 


More - Altarès - Ready,Set,Go!3 - Tops - Turbo Pascal - Xyphus 


Le réseau 
AppleTalk 





Pour être sûr de ne rater aucun numéro, abonnez-vous. 


je m'abonne." 


Cliquez sur Icônes. 


MH Ce qu'en pensent les lecteurs: 
e "C'est avec plaisir et intérêt que je lis Icônes dont la plus grande 
qualité, à mon sens, est l'intelligibilité pour un profane curieux." 

e “Permettez-moi de vous féliciter pour la très haute qualité rédaction- 
nelle de votre revue qui, à mon sens, me semble rarement atteinte dans 
bien des revues américaines auxquelles j'avais l'habitude de souscrire." 
e "Icônes doit trouver sa place dans la bibliothèque de tout 
Macintoshien qui se respecte." 

© "Enfin des articles objectifs qui savent faire la part des choses 

et qui ne portent pas Apple aux nues béatement ! Bravo, continuez." 

e "Jai eu le plaisir de voir votre revue si visuellement passionnante 

et je tiens à continuer le plus longtemps possible. C'est pourquoi 


Nom SSSR 


PIDICSSION Te nmretiede 
si Icônes vous déçoit, il suffit 
ler exemplaire Déur être intégr 





1 Bulletin d'abonnement à renvoyer à Icônes 
135 bis rue du Faubourg de Roubaix 59800 LILLE 


OK. Je clique sur Icônes. Je m'abonne pour huit numéros. 
France: 180F. Etranger: 250F. Ci-joint mon réglement par chèque. 
sn PTÉTIDONS crmrenenanenesmenaseaness 





nus Satisfait ou remboursé: 


d nous retourner avant dix jours votre 
ement remboursé (chèque retourné 
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ne revue telle Pom’s 
pouvait-elle proposer 
des grilles de mots 
“és CIOÏSÉS Sans proposer 
lasstetance de l'ordinateur ? 
L'application présentée ici permet 
de traiter sur l'écran des grilles de 
mots croisés préenregistrées ; elle 
présente le double avantage de 
remplacer avantageusement 
crayon et gomme, et d'aborder un 
nouveau langage dans ces pages : 
le Turbo-Pascal. L'application 
permet de sauvegarder une 
recherche en cours pour la 
reprendre à tête reposée. 





Utilisation 


Par le double-clic habituel, lancer 
l'application Mots_Croisés. 


Par défaut, la grille numéro 1 est 
chargée. Si cette grille n'est pas 
présente sur la disquette, un 
message d'erreur apparaît. Pour 
sélectionner une autre grille (s'il 
en existe une), cliquer sur le 
rectangle grille numéro. Une 
boîte de sélection apparaît alors. 


Roland Jost 


Choisir le numéro de la grille en 
cliquant sur les cases + ou -, puis 
charger la grille en cliquant dans 
OK. 


Déplacer la souris sur la grille, 
frapper la lettre à inscrire dans la 
case pointée par la souris ; bien 
sûr les cases noires ne sont pas 
accessibles. 


Pour conserver une grille 
inachevée, cliquer Sauver. Cette 
grille pourra être rappelée dans 
l'état ultérieurement. 


La commande Effacer vide la 
grille. 


Il est possible d'imprimer le 
problème sur papier en cliquant. 
Imprimer. 


Pour quitter le programme choisir 
l'option... Quitter. 


Enfin, pour contrôler les 
résultats, enfoncer la touche TAB 
tout en cliquant dans Grille 
numéro. La solution du problème 
s'affiche (Le problème de ce 


numéro faisant l'objet d'un concours, 
cette option ne fonctionnera 


pas...) 


Structure d'un 
fichier Grille 


Les fichiers grilles sont des 
fichiers TEXT nommés 
GRILLEI1, GRILLE2.… Leur 
contenu doit être le suivant : 


* une chaîne de 100 caractères 
où sera stockée la grille en 
cours de remplissage ; 

+ 1 retour chariot ; 

+ 1 chaîne de caractères 
contenant la solution du 
problème. Les cases noires 
sont représentées par des 
points ; 

+ 1 retour chariot ; 

+ 1 certain nombre de caractères 
pour les définitions 
horizontales ; 

e 1 retour chariot ; 

+ 1 astérisque ; 

+ 1 retour chariot ; 

+ les caractères nécessaires pour 
les définitions verticales. 


L'encadré donne un exemple de 
fichier. 


Exemple de fichier exploitable par Mots _croises 


Pour plus de compréhension, les espaces ont été matérialisés par des +. Un tel fichier peut-être constitué à 


l'aide d'un traitement de textes (sauvegarde avec l'option ‘texte seul”). 


sissisiege es tie est ee Taltle;se trs ee see es ce cr tone nr ietele ele" 061 90 ee es ee ee. ect je sro see esec se ste es eee 


INTERPRETENOE .0E.CUDTU. .SU.UBUEVITERAS.CGERS. .M.MAEA. 


1. Parle plusieurs langues. - 2. Patriarche. - Cardi- 

naux. — Noble inversé. - 3. Caché. - Appris. - Père de 

comédie. - 4, Feras un détour. 5. Rivière de France. - Possessif. 
langage français qui a eu bien peu de succès. Centre de vote. - 7. 


nimaux. Début de monnaie. - 8, 


10. Ne partirai pas. 
* 


— Quatre de Nathan. 


Vieux loup. 


.LSE.OTRU.LION.YE..NAAN.LEUORDINATEURRESTERAI.S 


— 6. Voyelles. - Un 
Petit ruisseau. - Le roi des a 


9. De plus en plus puissant. - 


1. Type de variable. - Opérateur logique. - 2. Récent. - Note. - 3. Inutile avec Mac Draw. - Fin de 
verbe 

- Inversé : Avait son siège à Genève. - 4. Consonnes . - Bon pour le nourrisson. - 5. Emblème d'un 

parti 

politique. - Grimpe aux arbres. - 6. Crainte. - Système de détection. - 7. Ainsi soit-il. - Symbole 
chimique. - 8. Monnaies européennes. - Monnaie d'Europe. - 9. Récipient. - Axe. - 10. Enseignants. 


Pomm's n° 32 











+ 














| 


El 
a 


7 


Programme Mots Croises 


Turbo-Pascal 
PROGRAM Mots_Croises; 
{Roland JOST - VERSION 2.0 - Juin 1987} 


{$U-} 
{ST APPLMCO2} 


uses Memtypes, Quickdraw, OSintf, Toolintf, Packintf,PasinOut, MacPrint; 


const 
System = 0; 
NewYork = 2; 
type 
stri5 = string[15]; 
CharArray = packed array[0..4999] of Char; 
var 
i, 
j, 
ncase, 
fasc, 
fdesc, 
lin, 
nombrei, 
emo : integer; 
textinlength, 
textinilength  : longint; 
inRect, 
F, 
ri, 
arect, 
brect : Rect; 
inkey : char; 
encours, 
solution : string[100]; 
chaine, 
numero, 
s, 
nomgrille , 
sn : string; 
c : point; 
cases : array[1..100] of rect; 
commande: array[1..5] of rect; 
mes : array[1..4] of string[10]; 
Line : array[1..50] of string[100]; 
gPort : GrafPort; 
myEvent :eventRecord; 
sortie, 
solflag : boolean; 
Textin, 
Textin{, 
TextOut : CharArray; 
Into : Fontino; 


[sommes 


procedure PutMsg (m : stri5; 
r: Rec); 


{ ecrit la chaine de caractères m dans le rectangle r } 


var 
h, v:integer; 
begin 

h:= rleft + (r.right - r.left - StringWidth(m)) div 2; 

V ‘= rtop + (r.bottom - r.top - fAsc - {Desc) div 2 + fAsc; 
MoveTo(h, v); : 
DrawString(m); 
end;{PutMsg} 


procedure boite5; 


{ affiche le numéro de la grille en cours } 


begin 
SetRect(commande[5],150,10,230,30); 
FrameRoundRect(commande{5],5,5); 
PutMsglgrille n° * + sn,commande{5]); 
end; {boites} 


procedure messages; 
{ initialise et affiche les commandes } 
begin 


SetRect(commande[1],10,10,70,30); 
FrameRoundRect(commande/1],5,5); 
PutMsgl'Effacer ,commandel[1]); 
SetRect(commande[2],80,10,140,30); 
FrameRoundRect(commande[2],5,5); 
PutMsgl'Sauver,commande|[2]); 
SetRect(commande[3],10,40,70,60); 
FrameRoundRect(commande[3],5,5); 
PutMsgl'Imprimer ,commande{3]); 

SetRect(commande[4],80,40, 140,60); 
FrameRoundRect(commande4],5,5); 
PutMsgl'Quitter,commande{4]); 
boite5; 


end; {messages} 


procedure remplit_grille ; 
{ affiche le contenu de la grille } 
var i :integer; 


begin 
for i := 1 to 100 do begin 
eraseRect(cases|i]); 
case encours|i] of 
!!: invertrect(cases|i]); 
otherwise 
putmsg(encours|],cases|i]); 
end; {case} 
end; {for i} 


end; {remplit_grille} 


procedure affiche_solution ; 
{ affiche la solution de la grille } 
var i :integer; 


begin 
for i := 1 to 100 do begin 
eraseRect(cases|i]); 
case solutionfi] of 
! : invertrect(cases|i]); 
otherwise 
putmsg(solution|i],cases|i]); 
end; {case} 
end; {for i} 
solflag = false; 
end; {affiche_solution} 


procedure affiche_grille; 
{ génère la grille 10 * 10 de mots croisés } 
var _i,j:integer; 


begin 
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for j := 1 to 10do 
begin 
for i := 1 to 10 do begin 
SetRect(r,270+20"i,20"),290+20*i,20+20"j); 
FrameRec{(r); 
SetRect(r1,271+20"i,1+20"j,289+20"i,19+20")); 
cases|[i+10"(j-1)] := r1; 


SetRect(r1,270,20"),290,20+20"j): 
NumToString(j,chaine); 
PutMsg(chaine,rt); 


for i := 1 to 10 do begin 
SetRect(r1,270 + 20*i,10,290+20"i,20); 
Numtostring(i,chaine); 
PutMsg(chaine,rt); 
end; 


end; {affiche_grille} 


Procedure faittextrect: 


var 
axrect, bxrect : rect; 


begin 
SetRect(axrect,5,80,270,210); 
SetRect(bxrect,5,230,507,330); 


aRect.left := axRect.left +5: 
aRect.right := axRect.right - 5; 
aRect.botiom := axRect.bottom - 5: 
aRect.top := axRect.top + 5; 


bRect.left := bxRect.left +5: 
bRect.right := bxRect.right - 5; 
bRect.bottom := bxRect.bottom - 5: 
bRect.top := bxRect.top + 5: 


end; { Procedure faittextrect } 
{m=n=smnmanccsconmmnn-s--commmn-c 


procedure rappel: 


{ chargement d'un problème à partir du disque } 
{ et affichage des définitions. } 


var 


i,erreur : Integer; 
F:Tex; 


car : char; 
begin 


nomgrille := 'grille‘+sn; 
{$-} 
Reset(F, nomgrille); 
erreur := IOResult; 
Readin (F,encours); 
erreur := IOResuit; 
Readin(F,solution); 
erreur := IOResult; 
if erreur = 0 then begin 
lin := 0; 
While car <> * do 
begin 
Read(F,car); 
Textin{lin] := car; 
lin := lin +1; 
end; 
textinlength := lin - 1; 
Read(F,car); 
lin := 0; 
While not Eof(F) do 
begin 
Read(F,Textint[lin]); 
lin := lin + 1; 
end; 
textintlength := lin; 
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end; {if} 
close(f); 
if erreur <> 0 then begin J 
SysBeep(1); 
Moveto(200, 150); 
DrawStringl'Cette grille n'existe pas !l'}; 


else begin 
affiche_grille; 
remplit_grille; 
moveto(5,80); DrawString{Horizontalement'); 
TextBox(@Textin,textinlength, arect, 0); 
moveto(5,225); DrawString(Verticalement'}; 
TextBox(@Textini textintlength, brect, 0); 
end; 
{$l+} 
end; {rappel) 
{a=nsnnesnnnnnnennsnnennnssnnnenssssssennnnnnnnnnnnnns sense) 


procedure saisie_numero; 


{ saisie du numéro de la grille à charger } 


var boite, { contour } 
rct, { rectangle pour le -} 
rc2, { rectangle pour le +} 
rok { rectangle pour OK } 
:rect; 
begin 
EraseRect(commande{5]); 
SetRect(boite,150,10,250,60); 
FrameRoundRect(boite, 5,5); 
Moveto(170,25);DrawStringl'grille n° *; 
PenSize(1,1); 


SetRect(r1,220,14,240,29); 
SetRect(rc1,224,40,236,51); 
SetRect(rc2,170,40,182,51); 
PutMsgl+'rct); 
PutMsgl'-"rc2); 
SetRect(rok,190,35,214,55); 
FrameroundRect(rok, 8,8); 
PutMsgl'OK',rok); 
Frameroundrect(rc1,5,5); 
FrameRoundRect(rc2,5,5); 
case ord(sn[0]) of 
1 : nombret := ord(sn[1]}-48; 
2 : nombrei := 10*(ord{sn[1]}-48) +ord{sn[2])-48; 
3 : nombret := 100*{ord{sn{1])-48) + 10*{ord{sn[2]}-48) +ord{sn[3])-48; 
end, {case} 
PutMsg(sn+'.,rt); 
repeat 
Getmouse(c); 
if Button and PtinRect(c,rc1) then begin 
nombre := nombrei+1; 
ifnombret > 999 then nombre := 1; 
NumToString{nombrei sn); 
EraseRoundRect(r1,5,5); 
PutMsg(sn+'.",r1); 
for j := 1 to 30000 do; 
end:{if} 
if Button and PtinRect(c,rc2) then begin 
nombret := nombre-1; 
it nombre < 1 then nombrei := 1; 
NumToString{nombrei,sn); 
EraseRect(r1); 
PutMsg(sn+",r1); 
for j := 1 to 30000 do; 
end:{if} 
until (button and PtinRect(c,rok)); 
Ch:=10; 


CV := 10; 
EraseRect(inRect); 


messages; 

rappel; 
end; {saisie_numero} 
{=======.sssssscssss Sssssz=2==222222 


snnsnssssssssss ie 


procedure sauve_grille; 


0 














ji. ; if solflag = true then 
bre a affiche solution Votre 
begin saisie_numero; lème 
end; {if} P1 ob 
for i := 1 to 100 do ee est 
in .V Æ A 
2 ARS end; {bouton} page These 
if Ptinrect(c,casesli]) then ncase := i; A 
end: (quelle_case} procedure Initialise; 
{ initialisation } 
(===mensnnsmsnannesnnsssensesn-2c-ss2sssussu= 
begin 
procedure saisie{myEvent : EventRecord); initgraf(@thePort); 
Le | openport(@gport): 
{ filtre les touches clavier et affiche dans la grille } PenPat(black); 
BackPat(white); 
begin FrameRect(gPort.portRect); 
inRect:= gPort.portRect; 
quelle_case; InsetRect(inRect,1,1); 
if encours{ncase] <> ‘then EraseRect(inRect); 
begin TextFont(NewYork); 
If (myevent Message and charcodemask) > 96 then myevent message := myevent. message -32;  TextSize(9); 
inkey := char(myevent.message and charcodemask); GetFontinfo{Into); 
case inkey of initcursor; 
‘A’. : begin sortie := false; 
eraseRect(cases|ncase]); solflag := false; 
PutMsglinkey,cases[ncase]); ENCOUrS := "; 
Delete{encours,ncase, 1); With Info do 
Insert(inkey,encours,ncase); begin 
SysBeep(-1); fasc := ascent: 
end, idesc := Descent 
otherwise end: 
sysbeep(1}; faittextrect; 
te Cas sn =" 
end {i : 
else sysbeep(2); bee 384 
end, {saisie} 
end, {initialise} 
procedure efface; 
begin {main} 
{ efface le contenu de la grille } 
initialise; 
var i : integer; 
f: text, repeat 
s if GetNextEvent(everyEvent, myEvent) then 
begin case myEvent.what of 
MouseDown : bouton; 
for i := 1 to 100 do KeyDown : begin 
if (encoursfi] in ['A’..'Z,'a"..77) then encoursfi] :=""; I (myevent message and charCodeMask) = 9 then solflag := true; 
Saisie(myEvent); 
end; {efface} L 
end; {case} 
until SORTIE; 
{a==nsoenneneaneennnnencnnencennesmns------- 
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{ sauvegarde de la grille en cours sur disque } 
var | : integer; 2 | #) 
C 


f:text; 


in 

rewrite(f, ‘grille'+sn); 

writeln(f,encours); 

writeln(f,solution); 

for i := 0 to textinlength -1 do 
write(f,textin{i]}; 

writeln(f,"*"); 

for i := 0 to textintlength - 1 do 
write(ftextin{[i]}; 

close(f); 

end; {sauve_grille} 


{=====mmensscccmnmnnnsssssss 
procedure quelle_case; 
{ trouve la case pointée par le curseur } 


{ analyse des commandes et branchement vers les routines concernées } 


varc :point; 
delai : longint; 


begin 

GetMouse(c}; 

if PtinRect(c,commande[1]) then begin 
efface, 
remplit_grille; 
sauve_grille; 

end; {if} 

if PtinRect(c,commande[2]) then sauve_grille; 
if PtinRect(c,commande{3]) then begin 
HideCursor; 


PrOpen; 
PrCtiCall(iPrEvtCtl,IPrEvtAIl,0,0); 
PrClose; 
ShowCursor; 
end; {if} 
if PtinRect(c,commande{4]) then sortie := true; 
if PtinRect(c,commande{5)) then begin 


<> onnaître instantanément 

l'heure de Vladivostok, 

Phoenix ou — acces- 
ss  soirement — Paris. 
Tel est le but de cet accessoire de 
bureau écrit en assembleur 68000 
pour l'efficacité mais aussi, 
inutile d'essayer de le dissimuler, 
pour le plaisir. 






Écrire un mode d'emploi de 
fuseaux tiendrait du gag tant son 
usage est ‘transparent’ ; signalons 
seulement que cafetière, tasse, 
lune, téléviseur et autre soleil 
indiquent ce que sont censés faire 
à cette heure — et en gros — vos 
amis de Vancouver ou 
Singapour. 


L'installation de fuseaux dans le 
‘system’ de vos disquettes de 
démarrage est aussi simple que 
pour d'autres accessoires et 
Font/DA Mover fera très bien 


l'affaire. Si vous êtes nouveau x 
Séoul 


lecteur de Pom’s (Bienvenue !), il Toky 


pers 


convient de signaler que, comme 
d'habitude, la disquette d'ac- 


fuseaux horaires 


nie1 Katmandou* 
o A New-Delhi* 
fs 
Pékin Hanoï Kaboul* 


si . Bangkok #\g Mascate 
Hong-Kong © NJ3POUT Lhassa S4erdlovsk lles Kerg. 





compagnement de ce numéro Adélaïde* Perth Djakarta Dacca Karachi Téhéran * 
contient l'accessoire installé dans es) I Moscou 

= «hi 0 Bagdad 
le système et dans un fichier Riot sent 


Font/DA Mover. Les ‘sources’ 
sont aussi sur ladite disquette 


Les virtuoses de l'éditeur de 
ressources vont aussi pouvoir 
s'occuper : les noms de ville ne 
sont pas dans le code mais dans 
une ressource (DITL -16000 pour 
ne rien vous cacher), il est donc 
possible de remplacer, par 
exemple, Paris par Brest ou 
Bordeaux. 


Anchor age 
Honolulu 


San-Francisco 


; Papeete 
* heure moyenne 


Nouméa 


Wellington 
Mac 32. Auckland 


Helsinki 
Athènes 


fiat 
Lisbonne “1 
Londres /4tei 
Alger (in | “ 
Abidjan Eds 
Reïkjavik 
Rio de Janeiro 








Source ‘Fuseaux.Asm’ 


+ FUSEAUX + 
heure à travers le monde 

A2 : handle de la liste des points 

DialogPtr 
A3 : adresse du BitMap du cadran 

adresse du handle d’un objet tournant 
A4 : sauvegarde du DCEPtr 
D3 : compteurs 
* D4 : pivot 
* PRELIMINAIRES esse renseeseee 
* INCLUDES 
include QuickEqu.D 
include SystEqu.D 
include ToolBEqu.D 


M CE EEE # 
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include MacTraps.D 
include CalEqu.D 
include mABcro.Txt 





* EQUATES 

csCode equ $1A ; control/status code [W] 
csParam equ $1C : op-defined params [20*B] 
NHeur equ 12 

NFus equ 24 

* écarts dans la liste den points ———-----—-—-—---—-—- 
Piv equ 0 spivot 

LAig equ 4 ;longueurs des aiguilles 

Ax equ 8 ;axe de rotation 

Ell equ 12 spetit et grand axe ellipse 

* x 

À XR@f “mm 


xRef GrandAig 
xRef PetitAig 








xRef GetTime 
xRef SinCos 
xRef Rotvect90 
# XR@f mm 
xDef dt 
xDef DERU 
DERU : 
* MOTS D’ENTREE 
S'COMDOE TAMORE ner ne ne eme mr 
dc.w $2400 sctrl/actions périodiques 
dc.W 3600 stoutes les minutes 
dc.W $0040 suniquement évents mise à jour 
dc.W 0 spas de menu 
* Ecarts Vers les Routinoes 
dc.W DIGORAD YR-DERU ; l:ouverture 
dc.W HorolazhEshy-DERU ; prime (unused) 
dc.W YRZ-DERU ; 2:controle 
dc.W HorolazhEshy-DERU ; status (unused) 
dc.wW KLOZADYR-DERU : 3:fermeture 
TES ——_— 
talbenn dc.B 0 
dc.B E 
-ALIGN 2 


* 


OUVERTURE @RGGCCRRCCECECCCRECCCCCECERCECECRCECECEEEEEE 


DIGORADYR 


* 


* 


* 


+ # 


* 


PRELIMINAIRES vsseressssesessssessssseesssssseessese 
emp M.L,A2/A4 ; sauvegarde 

moveA.L Al,A4 :DCEPtr » registre sûr 

Sauvegarde du GrafPtr de l’application en cours -——-— 


ep L spour le GrafPtr 

emp .L,SP sGrafPtr » pile 

_GetPort :GrafPtr APPL en cours » pile 
_ObscureCursor ;pour faire plus joli 


QUESTION DE LA FENETRE HÉHEHEEERHE EEE RE EEE EE EEE 
tst.L dctlWindow(A4) ;déja fenêtre ? 
bne.W Prenestrameus 
CONSTRUCTIONS cesse 
si l’on n’a pas de fenêtre, tout est à construire 
COLLECTE DE L’ID DE BASE HHÉHEHHHHEHEEREEEHEEEEEEEEE 


;n° de l’Acc 


move dCtlRefNum (A4),D0 

addQ #1,D0 

neg DO ;sous-ID Acc 
1sl #5,D0 

move #$C000,D1 

or D0,D1 

emp .W,D1 ;:1D de base surpile et dans D1 


LISTE DE POINTS HÉHEHHEHEEREEREEEEREEEEEEER ER EEEEEEEE 
Collecte dorla Liste et PLACE ——— 
GetRes #'pnt#',D1 


dep A.L,A2 handle dans A2 

moveA.L (A2),A0 ;adresse 

lea Pivot,Al 

move.L Piv(AO), (Al)+ 

move.L Laig(AO), (Al)+ 

move.L Ax(AO), (Al)+ 

move.L Ell(AO), (A1) saxes de l’ellipse 
Destruction 

emp .L,A2 

_ReleaseResource 


Si l’on n’a pas déja une fenêtre, +HHHHEHHEEHEREERET+ 
il faut en fabriquer une : 
Placement de l’ID de la Mappemonde 
dans l’Item No 25 

GetRes #'DITL',D1 

dep A.L,A0 shandle 

moveA.L (A0),A0 

move D1,Wo+NFus* (itmData+By+Wo)+itmData+By (A0) 
Collecte, Dale 
DOÎNEQUL 


ep L pour le DialogPtr 

emp -W,D1 

emp .L,#0 ; » heap 

emp .L,#-1 sfenêtre premier plan 
_GetNewDialog fenêtre fabriquée ! 
moveA.L (SP),A2 :DialogPtr » A2 & pile 





@10 


£ ONTS HE EE 
_SetPort enlèvement du DialogPtr 
SetFont #geneva, #9 
ÉLNÎTIONS 
move.L A2,dctlWindow (A4) sWindowPtr>DCE 
move dctlRefNum(A4),WindowKind (A2) 
COLLECTE DES IMAGES HÉÉEEHEHHHEEEELEES ENS SEEEHE EE 
Cadran 
:1D principal toujours sur la pile 
dep.W,D1 :1D » D1, RAN 
GetRes #'bmap',D1 
mouv0O L,(SP)+,CadrHndl 
Images Tournantes 


lea ObiTour,Al sadresse de stockage 
moveQ #4,D2 compteur 

addQ #1,D1 

ep L 

emp -.W,D1 = 
_GetPicture Ce A 
dep .L, (Al) 

subQ #1,D2 > NN 
beq.S 620 D 
addA #2*Lo,Al 

bra.s @10 


POSITION INITIALE DE LA LUNE +HHtt#tétttitittitittitt 


€e20 


x 


* 


* 


Collecte de l’Horloge Marquant 1h du Matin 
c'est la 23ème, à une congruence près, 
après l’horloge locale 


bsr.W GetTime 

cir.L DO 

move dt+dtHour, DO 

add #NFus-1,D0 

divU #NFus, DO 

swap DO :n° de l’item de 2h du mat 


TopLeft du rectangle +++ 


subA #2*Extd,SP ;Rect/Hndl/type, étendus 
bsr.W GetRect 

move.L Axe,D0 

sub.L DO0,TopLeft (SP) 


OpBin Top(SP),VectLun+vv, I2X 

OpBin Left (SP), VectLun+hh, 12X 
Calculs 
somme des carrés & NOLME “HE 

OpBin VectLun+vv,vv+Lo(SP),X2X 

OpBin VectLun+thh,hh+Lo(SP),X2X 

OpBin vv(SP),vv+Lo(SP),mulx 

OpBin hh(SP),hh+Lo (SP},mulX 

OpBin hh(SP),vv+Lo(SP),addx 

pea (SP) 

emp .W, #foSQRT 

_FP68K 





* vecteur UNITAÎrE +44 


* 


pea (SP) 
pea VectLun+vv 
emp .W,#foDiv+ffExt 
_FP68K 
pea (SP) 

pea VectLun+hh 

emp .W,#foDiv+ffExt 

_FP68K 

addA #2*Extd, SP ;:RAN 
vecteur eXAaCt +2 de 

OpBin VEll,VectLun+vv,mull 

OpBin VEll,VectLun+hh,mullI 


CALCUL coscooscssoscosessscesceosecooteeceotoeoreecese 


* pour avoir les aiguilles de suite 


bsr.W CalAig 
* ACHEVEMENT cossssosssesecsssssssnesessssenessssessee 
Prenestrameus 
Distro 
_SetPort sancien GrafPtr sur la pile 


moveA.L A4,A1l 


dep M.L,A2/A4 srestauration 


HorolazhEshy 
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moveQ #0,D0 ; return no error 
;Kenavo 
RTS 
* FERMETURE GCCGCCCCCCCCCECCERRCERERECERCECCCCCECCCRCER 
KLOZADYR 
* SAUVEGARDES essssssssssssessssssesesssesesesssssese 


emp M.L,A2/A4 ; sauvegarde 


moveA.L Al,A4 :DCEPtr 

ep L 

emp .L,SP 

_GetPort :GrafPtr en vigueur » pile 


* LIQUIDATIONS ses 
emp .L,CadrHndl 


_ReleaseResource 
lea ObjTour, Al 
moveQ #4,D1 scompteur 
@o emp .L, (Al) 
_ReleaseResource 
subQ #1,D1 
beq.s @10 
addA #2*Lo,Al 
bra.s eo 
@10 emp .L,dctlWindow(A4) :/pile pour destruc. 
Cir, EL dctlWindow(A4) ;sinon, boum ! 
_DisposDialog plus besoin fenêtre 
bra.s Distro ;on va fermer 


* CONTROLE GCCCCECCCERCCCRCERCCCECERERCCRECCCCCECCCECCR 
YRZ 
* ROUTINE PRINCIPALE & BRANCHEMENTS eesssssssssssssese 
* A0 pointe sur le "Device Request Block" et Al 
* sur le DCE 
emp .L,A4 ; sauvegarde 
moveA.L Al,A4 :DCEPtr 
move csCode (A0),D0 ;:n° requète 
SSi I.W,#accEvent,D0,doCtlEvent ;événement 
SSi I.W,#accRun,D0,ActMin saction périod 


YrzEshy 

moveA.L A4,A1l :DCEPtr, pour jIODone 

dep A.L,A4 srestauration 

moveQ #0,D0 ; return no error 

emp .L,j1ODone ;"request" traité, saut IODone 

RTS 

* EVENEMENT cooosoooesessssssssessssessssssesessssesee 
doCtlEvent 


* ROUTINE PRINCIPALE & BRANCHEMENTS vessssessssseseses 
emp .L,A2 ; sauvegarde 
moveA.L csParam(A0),A0 ;sur l'événement 
moveA.L EvtMessage (A0),A2 ;WindowPtr 
;numéro événement 


move EvtNum (A0),D0 
SSI I.W,#updatEvt,D0,MAJ ;mise à jour 
CtlEvtDone 
dep A.L,A2 srestauration 
bra.s YrzEshy 
MAJ 


* MISE À JOUR essences 
*entrée : DialogPtr » A2 
emp .L,A2 

_BeginUpdate 
emp .L,A2 
_DrawDialog 
bsr.W 
emp .L,A2 
_EndUpdate 
bra.s CtlEvtDone 
* ACTION PERIODIQUE RÉEL REE EEE E EEE EEE RE TRE EEE) 
ActMin 


* MECANISME soso esee 


DessAutour 


bsr.sS CalAig 
bsr.W DessAutour 
bra.s YrzEshy 
* SOUS-ROUTINES @@CGCCCCERCRCECCCRECCCCCCRRERERECCRECCEE 


CalAig 

* CALCUL DES POSITIONS 0000000 000000000000000000000e 

* PREPARATIFS HHÉHELEREE HER EE EEE EEE 
bsr.W GetTime 
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moveA.L dctlWindow(A4),A2 
subA #3*Extd,SP ;angle/vecteur 
* POSITION DE BASE HÉHHHHHEEEEEEREEREEEEHEEEEÉEEERE EH 
* Grande Aiguille 
moveA.L SP,AQ 





lea ga, Al sadresse du résultat 
move Lga,DO ;longueur 
bsr.W GrandAig 





* Petite Aiguille 
moveA.L SP,A0 


lea pa, Al sadresse du résultat 
move Lpa,DO ;longueur 
bsr.W  PetitAig 


* petite aiguille en étendu +44#4##tttttttitihihihe 
* multiplication du vecteur unitaire orthogonal 
* par la longueur 


À CAlCUl ----- 
pea Lpa 
pea Extd+vv+Lo (SP) 
fMull 
pea Lpa 
pea Extd+hh+Lo (SP) 
fMull 


reste pa en étendu sur la pile + 1 espace 
* rotation de 90 ----- 
dessous » dessus 


pea Extd+hh (SP) 
pea Lo (SP) 
fX2X 
smilieu » dessous 
pea Extd+vv (SP) 


pea Extd+hh+Lo (SP) 
£X2X é 2 


dessus » milieu 


pea (SP) LES 


pea Extd+vv+Lo (SP) 7 

fXx2X 
remplacement par l’orthogonal 

move #-1, (SP) 

pea (SP) 

pea Extd+vv+Lo (SP) 

fMull 
* AUTRES POSITIONS HER EEE EEE EEREEEEREEE 
* on fait tourner le petite aiguille de pi/6 
* Initialisations 

lea Extd(SP),Al ;adr vecteur à tourner 


pea pa place résults int » pile 
move #NHeur-1,D0 ;compteur 
* Boucle 
eo lea Sin5,A0 ;adr lignes trigo de alfa 


bsr.W  RotAlfa 
À ErANSÉErES 
moveA.L (SP),A0 
addA #Lo, A0 
move.L AO,(SP) 
OpBin Extd+vv+Lo(SP),v(A0),X2I ;r.sin(d+x}) 
OpBin Extd+thh+Lo(SP),h(A0O),X2I ;r.cos(d+x) 
AOL D 


subQ #1,D0 
bne.W eo 
addA #3*Extd+Lo, SP ; RAN 


* LUNE & SOLEIL HER EEE EEE EEE EEE 
* Coordonnées Relatives de la Lune —— 
lea SinMin, A0 sadr lignes trigo de alfa 
lea VectLun,Al ;vecteur à faire tourner 
bsr.W RotAlfa 
OpBin VectLun+vv,LunI+v,X21 
OpBin VectLun+hh,Lunl+h,X21 
* Calcul de toutes les Coordonnées Absolues 


lea LunI,AO 

moveQ #4,D1 compteur 
10 move.L (A0),D0 

move DO,D2 

muls HE11,D2 

divs VE11,D2 
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move D2,D0 
SKAP DO 
add Axe+v,DO 
SWAP DO 
add Axeth,DO 
subQ #1,D1 
beq.s e20 sc’est fini 
move.L (A0),2*Lo(A0) 
move.L DO, (A0) 
addA #2*Lo, AO 
bsr.W RotVect90 
bra.sS @10 
e20 move.L DO, (A0) 
RTS 
DessAutour 


* DESSIN seossssssessssmssssssssssssnsssssssssensssse 


* CADRANS & AIGUILLES +tttttttttttititttittttttttititt 
emp M.L,A3-A4/D3-D4 ; sauvegarde 
* Initialisations 
emp .L,A2 
_SetPort 
moveA.L CadrHndl,A0 
moveA.L (A0),A3 sadresse du bmap 
lea BitMapRec (A3),A0 ;adr de la bitimage… 


move.L A0,BaseAddr(A3) ;… à la bonne place 
lea pa,A4 ;adr dims aiguilles 
move #NFus,D3 ;compteur 
move.L Pivot,D4 spour la translation 
subA #LR+Lo+Wo, SP :Rect/Hndl/type 

* Boucle 


eo 
* collecte du rectangle “+4 
move D3,D0 
bsr.W GetRect 
0 CAGTAN HR 
move.L TopLeft (SP),DO 
add.L Bounds+BotRight (A3),D0 
sub.L Bounds+TopLeft (A3),D0 
move.L DO,BotRight (SP) 
emp .L,A3 
pea Bounds (A3) 
pea 2*Lo (SP) 
emp .W,#srcCopy 
emp .L,#0 
_StdBits 
# AÎQUILILES + 
add.L D4, (SP) 
* grande aiguille ---------—……-…—-…-—m—————————— 
emp .L, (SP) 
_MoveTo 
emp -L,ga 
_Line 
FSDAE SES AQU e en EEE 
emp .L,#$20002 


:SrcRect=BitMapBounds 
sdestRect 

écrase 

spas de ClipRgn 


_PenSize plus large que grande aiguille 
emp .L, (SP) 
_MoveTo 
emp .L, (A4) 
_Line 
_PenNormal sretour aux dimensions normales 
* Sortie 
subQ #1,D3 
beg.S €@20 ssortie 
cmpl.W #NHeur, D3 
bne.s @10 smystère des macros 
lea pa, A4 sréintialisation/pa 
bra.s eo 
@10 addA #Lo, A4 Cas ordinaire 
bra.s eo 


* LUNE & SOLEIL HÉÉÉEEEEERER EH EEE EEE EEE EEE 


@20 lea ObjTour, A3 
moveQ #4,D3 compteur 
e30 move.L Lo(A3),TopLeft (SP) 
move.L Lo(A3),BotRight (SP) 


moveA.L (A3),A0 ;handle 








moveA.L (A0),Al ;adresse 


move.L PicFrame+TopLeft (A1),D0 4 
move.L PicFrame+BotRight (A1),D1 z 
sub.L D0O,D1 ; _— 
add.L D1,BotRight (SP)  : NN 
emp .L,A0 2) 
pea Lo(SP) 
_DrawPicture 
subQ #1,D3 

beq.sS 40 
addA #2*Lo,A3 

bra.sS @30 


* FINITIONS HER ENEHE RER EN RER EREREREREE 
@40 addA #LR+Lo+Wo, SP : RAN 
dep M.L,A3-A4/D3-D4 s restauration 
RTS 
GetRect 
* COLLECTE D'UN RECTANGLE D’ITEM vrevevcoccesesecsesse 
*entrée : au moins 14 octets libres » pile 
x n° de l’item » DO 
*sortie : rectangle au sommet de la pile 
;:PC sur la pile 


emp .L,A2 

emp .W,D0 

pea Lo+Wo+Lo+LR+Lo (SP) 

pea Lo+Lo+Wo+Lo+LR(SP) 

pea Lo+Lo+Lo+Wo+Lo(SP) 

_GetDitem ;TopLeft sommet de la pile #sous PC 
RTS 


RotAlfa 
* ROTATION D’UN VECTEUR DE L'ANGLE ALFA essssseeeceece 
*entrée : adresse de SinCosAlfa » A0 


* adresse du vecteur à faire tourner » Al 

*sortie : A0 » sans changement 

x Al » adresse du vecteur transformé 
subA #2*Extd, SP 


OpBin vv(Al}),vv+Lo(SP),X2X 
OpBin hh(Al),hh+Lo(SP),X2X 
OpBin vv(AO),vv(Al),mulx 
CpBin hh(A0),hh(Al),mulx 
OpBin hh(A0),vv+Lo(SP),mulx 


:r.sind.sinx 
:r.cosd.cosx 
sr.cosd.sinx 


OpBin vv(A0),hh+Lo(SP),mulx :r.sind.cosx 
pea hh(SP) 
pea vv+Lo (SP) 
emp .W,#£ffEXT+foADD 
_FP68K :r.sin(d+x) » pile 
pea vv(Al) 
pea hh (A1) 
emp .W,#ffEXT+FoSUB 
_FP68K :r.cos(d+x) » bonne aûdr 
OpBin vv(SP),vv(Al),X2X ;sin(d+x) » bonne adr 
addA #2*Extd, SP 
RTS 


* DONNEES CRRRCCRCCCeRCRRReReCCCeeeceecceeeceeceeeeeee 
+ CONSTANTES cosssssssssssesessesesssessnsseessssseese 


Sins dc.W $3FFE, $8000, 50000, $0000,$0000 

Cos5 dc.W S3FFE, $DDB3, $D742,$C265,$539E 

SinMin dc.W $S3FF7,$8EFA, $1757,$14B7, $ODBF 

CosMin dc.W S3FFE, SFFFF,$604B,$01C2,$6FBC 

* RESERVATIONS DE MEMOIRE mme 
x TEMPS HER RER RER EEREÉEEEEEEEEEE 
dt dcB.W 7,0 fiche de la date et du temps 
* LISTE DE POINTS HE EEE ER EEE EEE EEEEEEE 
Pivot dc.L 0 zscoin du rectangle » pivot 


Lga dc.W 0 ;longueur grandes aiguilles 
Lpa dc.W 0 ;longueur petites aiguilles 
Axe dc.L 0 

VEIl dc.W 0 spetit axe de l’ellipse 
HE]ll dc.Ww 0 grand axe -"- 


* ROTATION ÉHÉEEEEEEEEESSE ESS EERR SERRE EESEEEEEEEEEEEE 
* Aiguilles & Cadran ——————————————— 


CadrHndl dc.L 0 :BitMapHandle du cadran 
ga dc.L 0 grande aiguille 
pa dcB.L NHeur,0 ;petites aiguilles 


* Autres Objets 
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lune étendu 








VectLUn dcB.B 2*Extd, 0 emplacement 
ObjTour ;ne pas changer l’ordre : 


LunHndl dc.L 0 

LunI dc.L 0 ;emplacement lune en entier 
TassHndl dc.L 0 

TassI dc.L 0 ;emplacement tasse entier 
SolHndl dc.L 0 

Soll dc.L 0 emplacement soleil entier 
TelHndl dc.L 0 

Tell dc.L 0 emplacement télé en entier 


FIN 


Fichier ‘mABcro.Txt’ 


Ls + mABcro ° 

* ss... 

* Macros Géniales 

kon esne nn nn 
yaducalcul equ 0 

* EQUATES vessoocsssessessemenessssesnmenssnsssssnuses 
Zo equ 0 

By equ 1 

Wo equ 2 

Lo equ 4 

LR equ 8 srectangle 

Extd equ 10 slongueur d’un étendu 

vv equ 0 

hh equ 10 spoints en étendu 

LStr equ 256 sphrase 

* DIVERS someone 
* _SetFont_ 


MACRO SetFont fonte,taille = 

MOVE.N {fonte},-(SP) 

_TextFont 

MOVE.W ({taille},-(SP) 

_TextSize 

| 
* _P2Couic_ 
*Traite toutes les séquences dans lesquelles avant 
*d’appeler une routine on pousse deux entiers sur 
*la pile (MoveTo,OffSetRect, … ) 


MACRO P2Couic x,y,couic = 
MOVE.W ({x},-(SP) 
MOVE.W ({y},-(SP) 
_{couic} 
| 
* PETITS BOUTS 
MACRO tuu = 
moveM.L A0O-A1/D0-D2,-(SP) 
move.W #1,-(SP) 
_SysBeep 
moveM.L (SP)+,A0-A1/D0-D2 
[ 
MACRO FIN = 
END 
| 
MACRO eP L = 
CLR.{L} -(SP) 
| 
MACRO deP f,R = 
MOVE{£f} (SP)+,{R} 
| 
MACRO emP f,R = 
MOVE{£f} {R},-(SP) 
[ 
MACRO mouvO L,D,Addr = 
LEA {Addr }, AO 
MOVE.{L} {D}, (A0) 
| 
MACRO mouvl L,D,Addr = 
LEA {Addr},A1l 
MOVE. {L} {D}, (A1) 
| 
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MACRO Si f,x,y,a = 
CMP{£} {x}, {y} [2] 
BEQ {a} Z 
 GRUÈRES 

I 
MACRO SiNon f,x,y,a = ES 

CMP{£} {x},{y} La) 

BNE {a} 

Î 

MACRO SSi f,x,y,a = 

CMP{f} {x},{y} 

BEQ.S {a} 

Î 

MACRO SSiNon f,x,y,a = 

CMP{f} ({x},{y} 

BNE.S {a} 

| 
* RESSOURCES verse sssmensossseessee 
* _GetRes_ 


* Macro générale pour la collecte des ressources 
Lo eo 





* Paramètres : type, ID » handle sur la pile 


MACRO GetRes TYPE, ID = 
CLR.L — (SP) 
MOVE.L ({TYPE},-(SP) 
MOVE.W ({ID},-(SP) 
_GetResource 
| 

* _CollRes_ 


* Macro pour la collecte de nombreuses ressources 


*Pour obtenir un handle sur une ressource, on fournit 
*souvent un ID et une instruction telle que 
*GetPicture retourne un Handle 


MACRO CollRes ID,Genre = 
CLR.L — (SP) 
MOVE.W {ID},-(SP) 
_Get{Genre} 


| 
* _CollPhrase_ 
*Register-stack-based-macro pour les 
*ressources de type STR# 


*Macro permettant la collecte des pointeurs sur les 
*phrases d’une liste 

* (STR#Handle dans A0,No dans la liste dans DO qui 
*sert aussi de compteur) : 

*STR Ptr sur la pile. Utilise aussi D1. 


MACRO CollPhrase = 
MOVE.W #2,D1 
MOVEA.L (A0),A0 

@100 ADDA.W D1,A0 
MOVE.B (A0),D1 
ADDQ.W #1,D1 
SUBQ.W #1,D0 

BNE.S @100 

MOVE.L A0,-(SP) 
| 


kon 


sdonne Ptr/phrase 
longueur des phrases 
sadresse » A0 
sptr/phrase dans A0 
long phrase dans D1 
cause octet longueur 
sdécrément du compteur 
sarrivé bonne phrase 


IF yaducalcul 
* CALCUL someone mms 
* macros les plus utilisées de SANE 
* MACROS OFFICIELLES 


MACRO fX2X = ;étendu->étendu 
MOVE.W #FFEXT+FOZ2X,-(SP) 
_FP68K 

l 

MACRO fX2I = jétendu->entier 
MOVE.W #FFINT+FOX2Z,-(SP) 
_FP68K 

| 

MACRO fI2X = ;entier->étendu 


MOVE.W #FFINT+FOZ2X,-(SP) 
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_FP68K 
| 


MACRO fmulI = ;multiplication par un entier 
MOVE.W #FFINT+FOMUL,-(SP) 

_FP68K 

| 

MACRO fMulX = ;Multiplication par un étendu 
move #£fEXT+foMUL,-(SP) 

_FP68K 

I 

MACRO faddX = ;addition d’un étendu 

MOVE.W #FFEXT+FOADD,-(SP) 

_FP68K 

| 

MACRO  faddS = ;addition d’un single 

MOVE.W #FFSGL+FOADD,-(SP) 

_FP68K 

| 

MACRO fmulS = multiplication par un single 
MOVE.W #FFSGL+FOMUL,-(SP) 

_FP68K 

| 

MACRO fdivI = ;division par un entier 
MOVE.W #FFINT+FODIV,-(SP) 

_FP68K 

| 

MACRO fremI = sentier 
MOVE.W #FFINT+FOREM, - (SP) 

_FP68K 

| 

MACRO £COSx = ;cosinus 


MOVE.W #FOCOSX,-(SP) 


_Elemns68K 
] 
MACRO £SINx = ;sinus 
MOVE.W #FOSINX,-(SP) 
_Elems68K 
| 
*22 PERSO 
SO TA I ON DIRAIT one 


*De nombreuses opérations du SANE utilisent deux 
*arguments et un code d’opération. La macro 
*ci-dessous reproduit la forme générale 

*de la suit d’instructions correspondante. 


MACRO OpBin A,B,op = 


PEA {A} 
PEA {8} 
F{op} 


ENDIF 


kon nn nn nm mme 


FIN 


Fichier ‘CalEqu.Txt 


ss... 


+ CalEqu.Txt ° 


* 

* 

* 

x Les equates ci-dessous font partie du 

x “Standard Apple Numeric Environment” (SANE) 
# décrit dans l1’"“Apple Numerics Manual" 

: inclus dans "Inside Macintosh". 

* extraits de SANEMacs.Txt le 24 Juin 87 

* condensé ? 


ons 


ones mme 


* NUMEROS DES OPERATIONS 


foADD equ 0 Addition 
foSUB equ 2 ssoustraction 
foMUL equ 4 Multiplication 


ÉODIV equ 6 Division 

£foCMP equ 8 compare 

£oCPx equ 10 ;compare 

fOREM equ 12 sremainder 

£oz2X equ 14 ;->étendu 

fox2z equ 16 sétendu-> 

foSQRT equ 18 racine carrée 
foRTI equ 20 sround to integral 
foTTI equ 22 struncate to integral 
foSCALB equ 24 sbinary scale 
foLOGB equ 26 slogarithme base 2 
foCLASS equ 28 sclassify 

: UNDEFINED equ 30 

foSETENV equ 1 set environment 
£OGETENV equ : sget environment 
£OSETHV equ 5 ;set halt vector 
ÉOGETHV equ 7 sget halt vector 
foD2B equ 9 sdécimal->binaire 
foB2D equ 11 sbinaire->décimal 
£oNEG equ 13 snegate 

foABS equ 15 svaleur absolue 
foCPYSGN equ 17 ; copy sign 

£oNEXT equ 19 ; next-after 
foSETXCP equ 21 ; set exception 
ÉFOPROCENTRY equ 23 ;: procedure entry 
foPROCEXIT equ 25 ;: procedure exit 
foTESTXCP equ 27 ; test exception 

;: UNDEFINED equ 29 

; UNDEFINED equ 31 

* NUMEROS DES FORMATS D’OPERANDES 

ffEXT equ $0000 

£fDBL equ $0800 1 
f£fSGL equ $1000 E 

££INT equ $2000 = 
f£LNG equ $2800 Fa NN 
f£fcOMP equ $3000 7 


* Precision code masks: forces a floating point 
* output value to be coerced to the range and 
* precision specified. 


fcEXT equ $0000 étendu 
fcDBL equ $4000 double 
fcSGL equ $8000 ;single 





£cSNAN equ 1 ; signaling NAN 
£cQNAN equ 2 : quiet NAN 

fcINf equ 3 ; infinity 
fcZERO equ 4 ; zero 

fcNORM equ 5 ;: normal number 
£cDENORM equ 6 ; denormal number 


; Bit indexes for bytes of floating point environment 
: word. 


fBINVALID equ 0 ; invalid operation 

FBUfLOW equ 1 ; underflow 

£BOfLOW equ 2 ; overflow 

fBDivZER equ 3 ; Division by zero 
fBINEXACT equ 4 ; inexact 

£BRNDLO equ 5 ; low bit of rounding 
£BRNDHI equ 6 ; high bit of rounding 
£BLSTRND equ 7 ; last round result bit 
£fBDBL equ 5 ; double precision control 
£BSGL equ 6 ; single precision control 
* NOmérOS des FONCTION mme nm 
foLNX equ $0000 slogarithme néperien 
foLOG2X equ $0002 ;1ogarithme de base 2 
foLN1x equ $0004 :Lg(1+x) 


Suite page 54... 
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rthogiciel Plus de 
Larousse est une 
nouvelle version du 
correcteur orthogra- 
phique pour Macintosh. Elle 
intègre de nouvelles possibilités 
telle la correction de documents 
‘entiers’ sauvegardés par 
MacWrite 4.5 et 2.0. 





Orthogiciel 


Il est livré sur deux disquettes 
contenues dans un petit classeur 
mode d'emploi bien présenté. Pas 
de difficultés de mise en route, 
peu de contraintes d'installation, 
aucun problème de mise en place 
sur disque dur. 


Le principe retenu pour la 
correction est le suivant : un 
document a été sauvegardé par 
MacWrite 4.5 ou 2.0 (ou par tout 
autre traitement de textes en 
format ‘texte seul”) ; 


- lancer Orthogiciel, 
- ouvrir le document, 
- demander la vérification. 


Orthogiciel s'arrête sur chaque 
mot posant un problème et 
propose de le maintenir en l'état, 
de le corriger, de consulter le 
dictionnaire avant correction. 


| + 


&æ tichiprs 





Uérification Dptio 












ns Dictionnaires Boîte a outils 


Le dictionnaire sur disquette ne 
comprend pas tout le petit 
Larousse mais 150 000 formes ce 
qui est beaucoup pour une 
disquette mais pas trop pour le 
français. 


La grammaire 


Orthogiciel est un correcteur 
orthographique et à ce titre, il 
laisse de côté les erreurs de 
syntaxe et fautes d'accord. On 
pourra écrire «nous avez» sans 
émouvoir le programme (déceler 
ce type de faute est d'une 
difficulté sans commune mesure 
avec la comparaison à un 
dictionnaire, même de 150 000 
mots). 


Le mode d'emploi, pour 
compenser cette restriction 
propose un guide d'orthographe 
qui aide à ne pas accorder «elle 
s'est complu» et à accorder «elle 
s'est abstenue» par exemple. 

Le programme propose aussi une 
aide à la conjugaison des verbes 
qui connaît les formes défectives 
éventuelles, les doubles formes et 
les participes invariables (du type 
succédé). 


Le dictionnaire 


Surtout incomplet, le petit 
* 





F2 orthogiciel ; 


4 À l'usage 


+ Doté de la fonction ‘renvoyer’, sorte de copier/coller, 


= Orthogiciel est souple d'emploi. 


Un menu propose l'aide à la 


Correction 


Il est assez rapide et même très rapide en considérant l'impor- 


4 tance de la recherche. 


d Consultation du Larousse 
Aide à la correction 
| Pluriel des noms 
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Larousse ne permet pas de 
satisfaire les besoins de chacun. 
Orthogiciel permet de définir un 
ou plusieurs dictionnaires 
utilisateur pour y inclure le jargon 
de telle ou telle profession. 
Chaque dictionnaire additionnel 
peut contenir 500 mots et on ne 
peut utiliser qu'un seul de ces 
dictionnaires à la fois. 


Et les accents ? 


Orthogiciel, bien que conçu pour 
le Macintosh se plante 
systématiquement si la zélée 
secrétaire prend le soin d'écrire 
«États-Unis, œuvre, Œuf, Atre» 
au lieu de «Etats-Unis, oeuvre, 
Oeuf, Atre». 

Idem pour les ligatures fi et fi : le 
programme préfère nettement 
«fichier» à «fichier». C'est bien 
regrettable car, bien utilisé, le 
Mac produit une typographie de 
qualité douée de Ç et autres O. 
«Ça marche !» ne marche 
justement pas. 


Mots défectifs 


Tout le français ne tient pas sur 
un disque et le choix n'a pas dû 
être aisé. Toutefois, des mots 
d'usage fréquent manquent à 
l'appel : 

logo, convivial, décodeur, 
positionnement, picots, réutilisé. 


Le programme s'arrête également 
sur surnatalité, numérisée, 
crénage, enfiche, occlusives, 
salvateur, compilez… 


Générer est bien dans le 
dictionnaire Orthogiciel mais les 
formes conjuguées généré, 
génère, générant ne sont pas 
reconnues. 


Plus curieuse est la scission 
aléatoire de certains mots 
procédures, position, caractères 
sont parfois reconnus comme 
pro, cédures, po, sition, Ca, 
ractères.… d'où arrêts fréquents et 
inutiles de la vérification. 
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En cas de césure avec trait d'u- 
nion comme ci-dessus, le mot 
union n'est pas reconnu, mais 
gêne est minime. 


À l'usage 


Doté de la fonction ‘renvoyer’, 
sorte de copier/coller, Orthogiciel 
est souple d'emploi. Un menu 
propose l'aide à la conjugaison, 
un générateur de pluriel et l'aide à 
la correction par une recherche 
simplifiée dans le dictionnaire. 

Il est assez rapide et même très 
rapide en considérant l'impor- 
tance de la recherche. 


Le défaut le plus pénible à 
supporter apparaît lors de la 
détection d'une faute : 

une fenêtre s'affiche, avec un 
extrait de la phrase, le mot en 
cause et neuf boutons de 
contrôle. Le drame est que cette 
fenêtre disparaît et réapparraît à 
chaque détection d'où un fatigue 
visuelle dès la 5ème faute et la 
migraine à la 10ème. Pourquoi ne 
pas avoir opté pour deux 
fenêtres, en haut et en bas de 
l'écran, affichées simultanément ? 


TT fichiers Uérification Dptions Bictionnahes Botte a outils 
: EEE UN SULTATION |] 


= Dictionnaire LAROUSSE CopyRight 


goujateries 
goujats 
goujon 
+ |goujonner 
-|goujons 
goulache 


Le confort y aurait gagné. À noter 
que les fenêtres sont dotées de 
barres de déplacement alors 
qu'on ne peut les déplacer. 


En conclusion 


Des bons points : le prix, la 
rapidité, l'efficacité, la possibilité 
de l'installer sur disque dur : la 
disquette originale n'est 
demandée que de temps en 
temps. 





Consultation 


Des points noirs : cette fenêtre qui 
‘flashe’, les œ É et autres O 
ignorés, de petits défauts de 
fonctionnement, l'impossibilité 
de faire accepter ‘CP/M’ même à 
l'aide du dictionnaire utilisateur 
du fait du ‘/’. 


Orthogiciel reste toutefois 
irremplaçable pour des fautes du 
type «programmme» qui peuvent 
échapper à la relecture la plus 


attentive. . 


STRUCTUREXPERT " 


La solution pour programmer de manière 
structurée en MSBASICTM et ZBASICTM, 
STRUCTUREXPERTM vous permet de 
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disposer d'un ensemble d'analyses qui 
visualisées (fenêtres 
“scrollables”), sauvées séparément sur 


Arborescence complète (descendante 


foLOG21X equ $0006 ;:log2(1+x) 

fOoEXPX equ $0008 ;exponentielle de base e 

foEXP2X equ $000A ;exponentielle de base 2 

foEXP1X equ $000c sexp(x)-1 

foEXP21X equ $000E sexp2(x)-1 

foXPWRI equ $8010 ;exponentiation entiére 

FoXPWRY equ $8012 ;exponentiation générale 

foCOMPOUND equ $co014 ; compound 

fOANNUITY equ $co16 sannuity A 
foSINX equ $0018 ssinus peuvent être 
focosx equ $001A scosinus 

fOTANX equ $001C ;tangente fichiers, ou imprimées : 
FOATANX equ $001E sArctangente 

fORANDX equ $0020 snombre aléatoire 


NANSQORT 


equ 1 
NANAdd equ 2 
NANDiv equ 4 
NANMul equ 8 
NANREM equ 9 
NANASCBIN equ 17 
NANCOMP equ 20 
NANZERO equ 21 
NANTRIG equ 33 
NANINVTRIG equ 34 
NANLOG equ 36 
NANPOWER equ 37 
NAN£INAN equ 38 








et ascendante) des appels GOSUB et 
CALL. 

Listes triées sur plusieurs types de 
critères des GOSUB et des CALL. 
Statistiques : fréquence d'appel de 
chaque routine. 

Détection d'erreurs logiques (boucles 
non contrôlées, récursivité illégale, 
labels et routines non utilisés). 


STRUCTUREXPERTM 495 F TTC + 20 F de port 
Paiement par CB ou chèques adressés à 
Q.S.I. — 149, rue Oberkampf — 75011 PARIS 
Tél. : (1) 42 49 37 95 
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e programme ajoute 
une commande 
COPY à ProDOS. 
En effet cette 
commande non 


UTILE CO 
implantée d'origine lui fait 


F cruellement défaut car il faut 
+ Roz 247] avouer qu'il est plus pratique de 
donner un ordre directement au 
clavier plutôt que sortir son 





copieur favori. 

Programme 6158:65 AC 69 65 85 06 84 07 Cette commande servira pour 
COPY 6160:4C FF FF AD 56 BE 29 03 recopier un fichier texte 

6168:C9 03 FO 05 A9 10 4C 09 volumineux d'un disque à un 

6170:BE AD 6C BE AC 6D BE 8D autre par exemple. 
Après avoir saisi ce code sous 6178:72 65 8C 73 65 AD 6E BE 
moniteur, vous le sauvegarderez 6180:AC 6F BE 8D 92 65 8C 93 t : 
par : 6188:65 A5 73 A4 74 8D 64 65 Mode d emploi 
BSAVE COPY, A$6000, L$AO8 6190:8C 65 65 AD 6C BE AC 6D 

6198:BE 85 06 84 07 AO 01 BI Cette nouvelle commande est 
6000:AD 08 BE 8D 62 61 AD 07 61A0:06 C9 2F FO 03 20 62 63 disponible au clavier ou par 
6008:BE 8D 61 61 A9 OA 8D BA 61A8:AD 6E BE AC 6F BE 85 06 : 1 
6010:60 20 F5 BE C9 OC DO 03 61B0:84 07 AO 01 B1 06 C9 2F programme après avoir tapé : 
6018:4C 09 BE 8D 08 BE 85 FB 61B8:F0 03 20 62 63 20 2E 64 BRUN COPY OU 
6020:A8 AE BA 60 8A 48 98 48 61C0:AD 75 65 C9 01 FO 04 C9 - COPY 
6028:29 07 A8 B9 BB 60 AA 68 61C8:0F DO 05 A9 OD 4C 09 BE SH PODOS cie een 
6030:48 4A 4A 4A A8 8A 19 58 61D0:A2 02 E8 BD 71 65 9D 91 
6038:BF 99 58 BF 68 A8 CB 68 61D8:65 EO 07 DO F5 A9 E3 8D 
6040:AA CA DO EO AD BA 60 38 61E0:94 65 20 37 64 AD 90 BF La syntaxe de la commande est la 
6048:ED FB BE 8D FB BE A9 00 61E8:AE 91 BF 8D 99 65 8E 9A même que celle des autres 
6050:8D 07 BE 85 FA A9 61 85 61F0:65 AD 92 BF AE 93 BF 8D commandes ProDOS, à savoir : 
6058:3B A9 00 85 3A 20 62 60 61F8:9B 65 8E 9C 65 20 40 64 COPY cheminl, chemin2 
CP ee en Le De EN RTES RES AS Chemin1 est le chemin d'accès 
he Dan Rs À lee RS (pathname) du fichier source 
6070:02 DO 28 B1 3A C9 BF DO 6210:AC 6D BE 8D AE 65 8C AF : x ee 2 
SOL D) AN Di IDD DS 6218:65 20 49 64 AD B2 65 8D chemin? celui du fichier de 
6080:88 B1 3A AO 05 C9 20 FO 6220:A6 65 8D B4 65 A9 04 20 destination, par exemple : 
6088:02 A0 02 B1l 3A 38 E9 61 6228:9A 64 AO 00 8C B0O 65 8D COPY /bureau/dossier/ 
6090:90 09 C9 OA BO 05 6D 08 6230:B1 65 AD 6E BE AC 6F BE client, /archive/client 
6098:BE 91 3A A2 00 CB A1 3A 6238:8D AE 65 8C AF 65 20 49 ; ù 
GI Gt PR EE USE FAO De 6240:64 AD B2 65 ED 92 65 20 Si le nom du volume est omis, le 
60A8:E6 3B E6 FB A9 6B C5 3B 6248:64 64 A9 00 8D 5E 65 8D programme prendra le lecteur par 
60B0:F0 07 88 30 E6 DO E7 FO 6250:5F 65 8D 60 65 AD 79 65 défaut, c'est à dire celui que 
60B8:A9 60 00 80 40 20 10 08 6258:AC 7A 65 8D 66 65 8C 67 ProDOS utilise quand on tape 
60C0:04 02 01 00 00 00 00 00 6260:65 0E 66 65 2E 67 65 AD CATALOG. 
60C8:00 00 00 00 00 00 00 00 6268:67 65 FO 07 A9 8F 8D 6B 
60D0:00 00 00 00 00 00 00 00 6270:65 DO 07 AE 66 65 E8 &E CRE commande CHICERC DOTE 
60D8:00 00 00 00 00 00 00 00 6278:6B 65 CE 6B 65 AD 6B 65 a copie de tous types de fichiers 
60E0:00 00 00 00 00 00 00 00 6280:20 F5 BE B0 F5 8D A8 65 (system, text, AppleWorks, 
60E8:00 00 00 00 00 00 00 00 6288:8D AO 65 AO 00 8C A7 65 binaires, commande...) mais ne 
60F0:00 00 00 00 00 00 00 00 6290:8C 9F 65 AD 6B 65 8D 6A peut copier des volumes. Ainsi, 
60F8:00 00 00 00 00 00 00 00 6298:65 AD B5 65 38 ED 5E 65 l'ordre : 
6100:D8 A6 06 AD 6C BE 85 06 62A0:8D 61 65 AD B6 65 ED 5F 
6108:A4 07 AD 6D BE 85 07 8&E 62A8:65 8D 62 65 AD B7 65 ED PES LÉ ao POSE 
6110:68 65 8C 69 65 A2 00 AO 62B0:60 65 8D 63 65 AD 63 65 est invalide. 
6118:01 B1 06 C9 AO DO 04 C8 62B8:D0 14 AD 62 65 CD 6A 65 
6120:4C 19 61 EC 6C 65 FO OA 62C0:B0 0C 8D AA 65 AD 61 65 Si l'utilisateur ne possède qu'un 
6128:DD 6D 65 DO 28 E8 C8 4C 62C8:8D A9 65 4C D9 62 A9 00 lecteur de disquettes, il devra 
6130:19 61 88 88 8C 52 BE AD 62D0:AC 6A 65 8D A9 65 &8C AA utiliser l'éventuel disque virtuel 
6138:63 61 AD 38 61 AC 39 61 62D8:65 20 6D 64 AE AB 65 AC comme tampon. 
6140:8D 50 BE 8C 51 BE A9 00 62E0:AC 65 8A 18 6D 5E 65 8D 
6148:8D 53 BE 8D 55 BE A9 03 62E8:5E 65 98 6D 5F 65 8D 5F Cr 
6150:8D 54 BE 18 60 38 AD 68 62F0:65 A9 00 6D 60 65 8D 60 
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62F8:65 
6300:52 
6308:90 
6310:90 
6318:F0 
6320:AD 
6328:65 
6330:65 
6338:91 
6340:65 
6348:C3 
6350:AC 
6358:68 
6360:07 
6368:00 
6370:BE 
6378:8C 
6380:64 
6388:0A 
6390:88 
6398:20 
63A0:85 
63A8:A0 
63B0:3E 
63B8:28 
63C0:85 
63C8:A5 
63D0:B1 
63D8:AD 
63E0 :AD 
63E8:28 
63F0:AD 
63F8:06 
6400:69 
6408:00 
6410:64 
6418:C8 
6420:18 
6428:AD 
6430:BF 
6438:00 
6440:20 
6448:60 
6450:4F 
6458:B0 
6460:65 
6468:B3 
6470:CA 
6478:BF 
6480:00 
6488:20 
6490:60 
6498:07 
64A0:48 
64A8:AC 
64B0:65 
64B8:C4 
64C0:20 
64C8:A9 
64D0:ED 
64D8:A2 
64E0:D0 
64E8:69 
64F0:BC 
64F8:20 
6500:20 
6508:65 
6510:54 
6518:AD 


8E 
64 
10 
08 
03 
6E 
8c 
9D 
64 
20 
65 
65 
65 
60 
8D 
65 
29 
FO 
0A 
98 


3C 


00 
A5 


BO 


A5 


A0 
FD 


F8 


ED 


AD 


A7 


6520:66 
6528:5F 
6530:AD 
6538:68 
6540:82A 
6548:AD 
6550:69 
6558:BE 
6560:00 
6568:00 
6570:59 
6578:00 
6580:00 
6588:00 
6590:00 
6598:00 
65A0:00 
65A8:00 
65B0:00 
65B8:02 
65C0:00 
65C8:E4 
65D0:27 
65D8:45 
65E0:4D 
65E8:57 
65F0:F3 
65F8:E5 
6600:EF 
6608:C9 
6610:E5 
6618:E1 
6620:E9 
6628:F4 
6630:A0 
6638:E5 
6640:EE 
6648:E9 
6650:EE 
6658:F5 
6660:F2 
6668:E9 
6670:E4 
6678:E8 
6680:E3 
6688:AE 
6690:A0 
6698:A0 
66A0:E9 
66A8:E1 
66B0:F4 
66B8:FB 
66C0:E5 
66C8:EE 
66D0:A0 
66D8:A0 
66E0:E3 
66E8:F9 
66F0:A0 
66F8:E3 
6700:F5 
6708:C3 
6710:EF 
6718:FB 
6720:A7 
6728:A0 
6730:A7 
6738:E9 
6740:F2 





AD 
67 


F2 


AD 


FB 


6748:AD 
6750:F5 
6758:F3 
6760:E5 
6768:A0 
6770:E1 

6778:EE 
6780:E5 
6788:F2 
6790:F0 
6798:A0 
67A0:EC 
67A8:ED 
67B0:E5 
67B8:F2 
67C0:A0 
67C8:E1 

67D0:A0 
67D8:E5 
67E0:A0 
67E8:00 
67F0:EC 
67F8:E9 
6800:E5 
6808:EE 
6810:C9 
6818:EF 
6820:EE 
6828:E9 
6830:E9 
6838:C3 
6840:D3 
6848:F4 

6850:E5 
6858:F0 
6860:EF 
6868:CC 
6870:F5 
6878:F2 
6880:E1 

6888:AE 
6890:F0 
6898:E5 
68A0:EC 
68A8:A0 
68B0:E6 
68B8:00 
68C0:E9 
68C8:F6 
68D0:EC 
68D8:E9 
68E0:F3 

68E8:A0 
68F0:00 
68F8:EC 
6900:F4 
6908:E1 

6910:E4 
6918:A7 
6920:A0 
6928:CF 
6930:E5 
6938:FD 
6940:A0 
6948:E5 
6950:E3 
6958:00 
6960:EE 
6968:E7 


F4 El 
E9 EE 
EE F4 
EF EC 
ES5EF3 
E4 E9 
EC E5 
E9 E3 
A7 ES 
A0 E4 
A0 E3 
FSUE5 
E4 FB 
E9 E3 
F8 E9 
EA CO 
E1 F3 
A0 F0 
F5 F2 
EC F5 
A0 E3 
F95°ES5 
E9 FO 
A0 FO 
CCYES 
F3 F4 
El EE 
EFCF5 
A0 E3 
E9 E5 
DO F2 
ES A0 
F4 E9 
E3 E5 
E4 ES5 
El E7 
E6 E9 
E9 E3 
A0 FB 
E5 E9 
EE A0 
F4 A0 
El F5 
E4 ES 
EE A0 
E8 E9 
A0 E6 
AO E5 
F2 EF 
00 CC 
E9 ES 
F2 ES 
F6 E5 
A0 E3 
F5 E5 
EE E4 
AE 00 
F1 ES 
F4 A0 
A0 DO 
00 D5 
FO E1 
ES5VE3 
A0 F4 
FauF4 
F2 E5 
EF C4 
FO E5 
ES F2 


EC EF E7 
ES5 F8 E9 
AE 00 CC 
F5 ED E5 
F4 A0 FO 
F3 FO EF 
AE 00 CC 
E8 E9 E5 
F3 F4 A0 
El EE F3 
El F4 El 
A0 E4 ES 
AE 00 CC 
E8 E9 ES 
F3 F4 ES 
AE 00 DO 
F3 E5 FA 
EC El E3 
A0 E3 E5 
ED ES AE 
El F4 El 
AO F0 F2 
E1 EC A0 
EC E5 E9 
AO CD CC 
A0 F4 F2 
E3 E9 ES 
F2 A0 EC 
E5 A0 E6 
F2 AE 00 
EF C4 CF 
FO ES F5 
EC E9 F3 
A0 F4 F9 
AO F3 F4 
E5 AE 00 
EE A0 E4 
E8 E9 ES 
F4 FB A0 
EE F4 ES 
EE E5 A0 
El EC EC 
A0 E4 ES5 
AO EC El 
E4 F5 A0 
ES5 F2 AE 
E9 E3 E8 
F3 F4 A0 
F5 E9 EC 
E5 A0 E6 
F2 À0 E5 
F3 F4 FB 
F2 F4 AE 
El F4 E1 
A0 ES5 F3 
EF ED ED 
CC ES5 A0 
ES5 A0 EE 
FO El F3 
F2 EF C4 
EE A0 E4 
F2 El ED 
A0 E4 ES5 
El E2 EC 
AO E9 EE 
E3 F4 AE 
CF D3 A0 
F5 F4 A0 
AO F1 F5 
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6970:E5 A0 E8 F5 E9 F4 A0 EC 69A8:A0 CO AO EC A7 E5 EE E4 693E0:F5 E5 F3 AE 00 CC E1 AO 
6978:E5 E3 F4 ES F5 F2 F3 A0 69B0:F2 EF E9 F4 A0 E4 FB F3 69E8:E3 E1 F2 F4 E5 AO E4 E5 
6980:C0 AO EC El A0 E6 EF E9 69B8:E9 E7 EE FB AE 00 C9 EC 69F0:F3 AO E2 EC EF E3 F3 A0 
6988:F3 AE 00 CC E5 A0 E2 F5 69C0:A0 F9 A0 El A0 E4 E5 F5 69F8:E5 F3 F4 AO E5 EE E4 EF 
6990:E6 E6 ES F2 AO EE E5 A0 69C8:F8 A0 EE EF ED F3 AO E4 6A00:ED ED El E7 FB E5 AE 00 
6998:F0 E5 F5 F4 A0 F3 A7 E9 69D0:E5 A0 F6 EF EC F5 ED ES 
69A0:ED FO EC El EE F4 E5 F2 69D8:A0 E9 E4 E5 EE F4 E9 F1 
STA OLDCMD+2 JSR INSDSP2 INY 
So U r ce COP Y. S LDA EXTRNCMD LDY LENGTH JMP TEST 
STA OLDCMD+1 cPY £2 
Assembleur Merlin Pro Sr rs Le 
LDA £>PFIN-DEBUT+$FF LDA (PCL),Y DEY 
ÉÉLLTLILEL STA NBPAGES CMP £$BF STY  XLEN 
* JSR GETBUFR BNE NOMLI MIENNEI LDA COPY 
* Copie de fichiers ProDOS CMP £$0C DEY LDA  MIENNE1+1 
* BNE  GOTHEM LDA (PCL),Y LDY  MIENNE1+2 
* Frédéric Rozay / juillet-aout 87 JMP  ERROUT CMP £0 STA XTERNADDR 
À BNE NOMLI STY  XTERNADDR+1 
CTFTEIIILI. GOTHEM STA EXTRNCMD+1 DEY LDA £0 
STA ADR+#1 LDA (PCL),Y STA XCNUM 
LST OFF TAY LDY £5 STA PBITS+1 
LDX NBPAGES CMP £$20 LDA £3 
BUFFER = $6 BEQ RMLI STA PBITS 
Al = $3c note les pages utilisées NOMLI EDY LL. £2 CLC 
A2 = $3E pour abaisser Himem RMLI LDA  (PCL),Y RTS 
A4 = $42 MARKUSED TXA SEC 
PHA SBC £>DEBUT PASMIEN SEC 
START - $6000 TYA BCC RTRANS LDA  OLDBUFF 
DEBUT = START#$100 PHA CMP  £>PFIN-DEBUT+$FF LDY  OLDBUFF+#1 
AND £7 BCS  RTRANS STA  BUFFER 
LENGTH = $2F TAY ADC  EXTRNCMD+1 STY  BUFFER+1 
PCL = $3A LDA  BITMASK,Y STA  (PCL),Y OLDCMD JMP  $FFFF 
HIMEM - 573 TAX 
PLA RTRANS LDX £0 RARNEPRANE 
ADR ou $FA PHA INY 5 
LSR RBOUCLE LDA (PCL, X) * Initialisation pour la copie 
WARM = $3D0 LSR STA (ADR, X) 2 
LSR INC PCL LLLLELELLEE) 
EXTRNCMD = $BEO? TAY INC ADR 
ERROUT = $BE09 TXA BNE NOCARRY deux pathnames nécessaires 
DEFSLT = $BE3C PA /. e ORA  BITMAP,Y INC PCL+#1 CoPY LDA FBITS 
DEFDRV = $BE3D STA  BITMAP,Y INC  ADR+1 AND £3 
XTERNADDR = $BE50 PLA LDA £>PFIN+$FF CMP £3 
XLEN = $BE52 / / e+ TAY CMP  PCL+1 BEQ  GOODBOY 
XCNUM = $BES53 INY BEQ  RFIN 
PBITS = $BE54 PA " (ES PLA NOCARRY  DEY DB ET 
FBITS = $BE56 TAX BMI RTRANS JMP ERROUT 
VPATHI = $BE6C lg S DEX BNE RBOUCLE 
VPATH2 - $BE6E BNE MARKUSED BEQ RELOGE GOODBOY  LDA VPATHI 
HIMMSB = $BEFB LDY VPATHI+1 
GETBUFR = $BEFS LDA  NBPAGES RFIN RTS STA  PARMGFI+1 
MLI = $BF00 SEC STY  PARMGFI+2 
BITMAP $BF58 SBC HIMMSB NBPAGES DS 1 
DATE = $BrF90 STA HIMMSB BITMASK DFB $80,$40,$20,$10,8,4,2,1 LDA VPATH2 
TIME - $BF92 LDY VPATH2+1 
LDA  £0 * Vérifie que la commande STA  PARMCRE+1 
STROUT = $DB3A STA EXTRNCMD * est bien COPY STY PARMCRE+2 
STA ADR 
INSDSP2 = $F88C LDA  £>DEBUT Ds DEBUT-* LDA  HIMEM 
PRBYTE = $FDDA STA PCL+1 LDY HIMEM+1 
COUT - $FDED LDA £<DEBUT CLD STA OLDHIM 
MOVE ” $FE2C STA ECL LDX BUFFER STY OLDHIM+1 
JSR RELOGE LDA VPATHI 
GET_TIME = $82 CLC STA BUFFER LDA VPATHI1 
DESTROY = $c1 RTS LDY BUFFER+1 LDY VPATH1+1 
CREATE = $co LDA VPATH1+1 STA BUFFER 
SET_FILE_INFO = $C3 * Relogeur STA BUFFER+1 STY BUFFER+1 
GET_FILE INFO = $C4 * réassemble le programme STX OLDBUFF LDY £1 
ONLINE = $c5 situé à l'adresse (ADRESSE) STY OLDBUFF+1 LDA (BUFFER) , Y 
GET_PREFIX = $c7 * DEBUT doit etre multiple de 256 LDX £0 CMP £'/" 
OPEN = $ce * la zone des données est LDY £1 BEQ  PRFXSTI 
READ = $CA séparée du programme par un 00 TEST LDA (BUFFER) ,Y 
WRITE = $CB * le programme reloge la CMP Lt de JSR INCPATH 
CLOSE Ld $cc structure du MLI BNE TEST1 
GET_EOF = $D1 * ainsi que les parametres INY PRFXST1 LDA  VPATH2 
éventuels JMP TEST LDY VPATH2+1 
ORG START TEST1 CPX COMMAND STA BUFFER 
Relogeur de la commande RELOGE LDX £0 BEQ MIENNE STY BUFFER+1 
externe LDY  £S$SFF CMP  COMMAND+1,X LDY E£1 
LDA (PCL, X) BNE PASMIEN LDA (BUFFER) , Y 
LDA EXTRNCMD+1 BEQ RTRANS INX CMP £U7e 


Pom's n° 


52 

















BEQ PRFXST2 JSR GEOF LDA POSEOF+1 LDA BUFFER 
CMP PARMEOF+3 CLC 
UJSR  INCPATH * Choisit un buffer pour BCC  SUITE3 ADC  £1 
le transfert LDA POSEOF STA Al 
PRFXST2 JSR GETFINFO CMP PARMEOF+2 LDA BUFFER+1 
LDA £0 BEQ END ADC £0 
* Vérifie que le fichier STA POSEOF SUITE3 JMP SUITE STA Al+1 
n'est ni un Directory ni STA  POSEOF+1 LDY  £0 
un fichier Bad STA POSEOF+2 END JSR CLOT LDA (BUFFER) , Y 
SEC 
LDA PARMGFI+4 LDA PARMGFI+8 LDA VPATH2 ADC BUFFER 
CMP  £1 LDY  PARMGFI+9 LDY  VPATH2+1 STA A2 
BEQ BADTYPE STA CALCUL STA PARMSFI+1 LDA BUFFER+1 
CMP  £$F STY CALCUL+1 STY  PARMSFI+2 ADC  £0 
BNE  GOODTYPE ASL CALCUL LDX £4 STA A241 
ROL CALCUL+1 RECOP LDA PARMGFI+2,X JSR LITPATH 
BADTYPE LDA  £$D LDA  CALCUL#1 STA  PARMSFI+2,X CLC 
JMP  ERROUT BEQ TAILLE DEX ADC £3 
LDA £143 BNE RECOP CLC 
* Recopie les paramètres STA ECCO ADC  BUFFER 
du fichier source dans BNE CHERBUF JSR FIXFILE STA A4 
la table des TAILLE LDX CALCUL LDA BUFFER+1 
* paramètres du fichier INX RTS ADC £0 
destination STX ECCO STA A4+1 
CHERBUF DEC ECCO * Ferme le fichier source 
GOODTYPE LDX £2 LDA ECCO puis le fichier destination LDA A2 
GFI_CRE INX JSR GETBUFR SEC 
LDA PARMGFI, X BCS CHERBUF CLOT LDA PARMLIT+1 SBC Al 
STA PARMCRE, X STA PARMLIT+3 STA PARMCLO+1 TAY 
CPX £7 STA PARMECR+3 INY 
BNE GFI_CRE LDY £0 JSR FERME DEPLACE DEY 
LDA £#11100011 STY PARMLIT+#2 LDA {Al),Y 
STA PARMCRE+3 STY PARMECR+2 LDA PARMECR+1 STA (A4),Y 
LDA ECCO STA  PARMCLO+1 CPY  £0 
* Va chercher l'heure et STA LENBUFF BNE  DEPLACE 
la date de création JSR FERME 
* du fichier destination * Procède au transfert LDA PARMON+2 
des informations RESTORE LDA OLDHIM Cre 
JSR HEUDAT LDY OLDHIM+1 ADC £1 
SUITE LDA PARMEOF+2 STA HIMEM STA Al 
LDA DATE SEC STY  HIMEM+#1 LDA  PARMON+3 
LDX DATE+#1 SBC POSEOF ADC  £0 
STA PARMCRE+8 STA RESTE LDA OLDBUFF STA A1l#+1 
STX  PARMCRE+9 LDA  PARMEOF+3 LDY  OLDBUFF+1 JSR  LITPATH 
LDA TIME SBC POSEOF+1 STA  BUFFER SEC 
LDX TIME+1 STA RESTE*+1 STY BUFFER+1 ADC PARMON+2 
STA PARMCRE+10 LDA PARMEOF+4 STA A2 
STX PARMCRE+11 SBC POSEOF+2 RTS LDA PARMON+3 
STA RESTE+2 ADC  £0 
JSR CREE * Met le préfixe du lecteur STA A2+1 
LDA  RESTE+2 par défaut devant le pathname LDA  BUFFER 
* Ouvre le fichier source BNE  SUITEI * pointé par BUFFER CLC 
puis le fichier destination LDA  RESTE#1 ADC £2 
CMP LENBUFF INCPATH LDA £1 STA A4 
LDA  £4 BCS  SUITEI JSR  GBUFF LDA  BUFFER+1 
JSR  GBUFF STA  PARMLIT+#S ADC £0 
LDY  £0 LDA RESTE LDY £0 STA  A4+1 
STY  PARMOUV+3 STA  PARMLIT+4 STA  PARMON+3 
STA  PARMOUV+4 JMP  SUITEZ STY  PARMON+2 JSR MOVE 
STA PARMPREF+2 
LDA  VPATHI SUITEL LDA £0 STY  PARMPREF#1 LDY  £0 
LDY  VPATHI+1 LDY  LENBUFF STA  LITPATH+2 LDA  (BUFFER),Y 
STA  PARMOUV+1 STA  PARMLIT+4 STY  LITPATH+#1 STA  ADD+1 
STY  PARMOUV+2 STY  PARMLIT+5 JSR  LITPATH 
JSR PRNDPREF CLC 
JSR OUVRE SUITEZ2 JSR LIT ADD ADC £0 
JSR LITPATH ADC £2 
LDA  REFNUM LDX  PARMLIT+6 BEQ  PASPREF STA (BUFFER) , Y 
STA  PARMLIT#1 LDY PARMLIT+7 RTS INY 
STA PARMEOF+1 TXA LDA Er 
CLC PASPREF LDA  DEFSLT STA (BUFFER) , Y 
LDA  £4 ADC  POSEOF ASL JSR LITPATH 
JSR GBUFF STA POSEOF ASL CLC 
LDY  £0 TYA ASL ADC  £2 
STY PARMOUV+3 ADC POSEOF+1 ASL TAY 
STA  PARMOUV+4 STA  POSEOF+1 ASL LDA £"/" 
LDA £0 TAX STA (BUFFER) ,Y 
LDA  VPATH2 ADC POSEOF+2 LDY  DEFDRV 
LDY  VPATH2#1 STA  POSEOF+2 DEY LITPATH LDA S$FFFF 
STA  PARMOUV+I STX  PARMECR+4 TYA AND £#00001111 
STY  PARMOUV+2 STY  PARMECR+5 LSR RTS 
JSR ECRIT TXA 
JSR OUVRE ROR ÉLLLLII111: 
LDA POSEOF+2 STA PARMON+1 * 
LDA  REFNUM CMP  PARMEOF+4 * Appels au ProDOS 
STA  PARMECR+#1 BCC SUITE3 JSR  ENLIGNE * 
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CEPEELELEE) 


GETFINFO 


HEUDAT 


CREE 


OUVRE 


ECRIT 


FERME 


GEOF 


LIT 


PRNDPREF 


ENLIGNE 


EFFACE 


FIXFILE 


GBUFF 


JSR 
DFB 


MLI 
GET_FILE_INFO 
PARMGFI 

ERROR 


GET_EOF 
PARMEOF 
ERROR 


MLI 
READ 
PARMLIT 
ERROR 


MLI 
GET_PREFIX 
PARMPREF 
ERROR 


DESTROY 
PARMDES 
ERROR 


MLI 
SET_FILE INFO 
PARMSFI 

ERROR 


GETBUFR 
ERROR 


* Affichage du code et du 
message d'erreur 


ERROR 





£$48 
ERR1 
PARMCRE+1 
PARMCRE+2 
PARMDES+1 
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ERR1 


GETMLI 


OUIOUI 


ERR2 


MLICODE 


MLI1 


MLI2 


ML1I3 


MLI4 


MLI5 


MLI6 


MLI7 


MLI8 


MLI9 


MLIA 


MLIB 


MLIC 


MLID 


MLIZ 


MLIE 








PARMDES+2 JSR RESTORE 
JMP WARM 
CLOT 
EFFACE * Table des adresses 
des messages d'erreur 
CODEMSG 
ERR1+1 MLIERR LDA MLI1 
ERR1+2 LDA MLI2 
STROUT LDA ML13 
LDA MLI4 
LDA MLIS 
PRBYTE LDA MLI6 
£$A0 LDA MLI7 
COUT LDA MLI8 
LDA MLI9 
SEAT LDA  MLIA 
COUT LDA  MLIB 
£$A0 LDA MLIC 
COUT LDA MLID 
LDA MLIZ 
LDA MLIE 
£28 LDA MLIF 
MLICODE, X LDA MLIG 
OUIOUI LDA MLIH 
LDA MLII 
CEDuz LDA  MLIJ 
LDA MLIK 
ERRErI LDA MLIL 
LDA MLIM 
LDA  MLIN 
Le LDA MLIO 
LDA MLIP 
LDA MLIQ 
MLIERR, X LDA MLIR 
LDA MLIS 
MLIERR, X 
STROUT BRK 
£7 
CouT POSEOF DS 3 
£$8D RESTE DS 3 
COUT OLDHIM DS 2 
01042527282B2E40424344454647484 
94R4B4C4D4ES05152535556575A qte 
"Mauvais code de fonction du ML 
3 LA 
00 MLIG 
"Nombre de paramètres incorrect 
00 MLIH 
"Table de vecteurs d'interrupti 
on pleine." 
00 MLII 
“Erreur d'entrée/sortie." 
00 
"Pas de périphérique connecté." MLIJ 
00 
"Disque protégé à l'écriture." 
00 MLIK 
“La disquette a été changée." 
00 MLIL 
"La syntaxe du nom est incorrec 
te." MLIM 
00 
"Il y a déja huit fichiers ouve MLIN 
rts." 
00 
"Ce numéro de référence n'est p MLIO 
as celui d'un" 
“ fichier ouvert." 
00 MLIP 
"Sous-catalogue inexistant." 
00 
“Le volume n'est pas disponible MLIQ 
" 
00 
“Le fichier n'est pas dans le c MLIR 
atalogue demandé." 
00 
"Le fichier existe déjà." MLIS 


00 
"Pas assez de place sur ce volu 
me." 


PFIN 


CALCUL DS 2 
OLDBUFF DS 2 
LENBUFF DS 1 
ECCO DS 1 


COMMAND STR 


PARMGFI DFB $0A 


Ds 17 
PARMSFI DFB  $07 
DS 13 
PARMCRE DFB  $07 
Ds 11 
PARMECR DFB $04 
DS 7 
PARMLIT DFB $04 
DS 7 
PARMOUV DFB $03 
Ds 4 


REFNUM DS 1 
PARMEOF DFB $02 


DS 4 
PARMON DFB $o2 
Ds 3 


PARMPREF DFB $o1 


DS 2 
PARMDES DFB $01 

Ds 2 
PARMCLO DFB $01 

Ds 1 


CODEMSG HEX 8D 
ASC " Code $" 
HEX 00 


* Codes d'erreur du MLI 


00 

“Le catalogue principal est ple 
in.” 

00 

"Le MLI est trop ancien pour li 
re ce fichier." 

00 

“Ce ProDOS ne peut utiliser ce 
type de stockage." 

00 

“La fin du fichier a été attein 
12" Cod 


“On ne peut aller au delà de la 
fin du fichier." 


"Le fichier est verrouillé." 
"Le fichier est resté ouvert." 
"Le catalogue est endommagé." 


"Le disque n'est pas en ProDOS. 


“Un des paramètres de la table 

est incorrect." 

00 

"ProDOS ne peut gerer que huit 

lecteurs à la fois." 

00 

"Le buffer ne peut s'implanter 

à l'endroit désigné." 

00 

"Il y a deux noms de volume ide 
ntiques." 

00 

"La carte des blocs est endomma 
gée." 

00 
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æ objet du présent programme est de 
répondre aux besoins de sauvegarde de 
volumes de tailles différentes. Avec 
> ” MouseDesk, la copie de multiples fichiers 
ne pose pas de problème mais avec le Filer de 
ProDOS, pas question de sauvegarder des dossiers ni 
de copier des volumes différents. 






La configuration était la suivante : Apple //, une carte 
Speedisk 1 Méga, un lecteur 800 Ko, pas de souris et 
le problème était de saugarder la carte RAM sur une 
disquette 800 Ko. Le programme Basic présenté ici 
n'est qu'une utilisation du Copieur de F. Rosay listé 
dans ces pages : il se charge de rechercher dans le 
catalogue les dossiers et sous-dossiers quelle qu'en 
soit la profondeur puis fait appel à la commande 
externe COPY pour en assurer la sauvegarde. 


Il donne accessoirement une façon de rechercher les 
fichiers dans les dossiers. 


Utilisation 


Le programme se lance simplement par : 
RUN COPIE.TF OU - COPIE.TF 
exclusivement sous ProDOS. 


Il demande successivement les port et lecteur du 
volume original et du volume destination puis 
recherche les catalogues, les crée si nécessaire sur le 
volume destination et enfin exécute les copies. 


Si un fichier existe déjà sur la copie, le programme 
affiche un message auquel on répond par : 


Programme COPIE.TF 


0 PRINT CHR$ (4)"BLOADCOPY": POKE 2578 
3, 76: POKE 25784,3: POKE 25785,101: 
POKE 25860,9: POKE 25861,190: CALL 2 
4576 

1 HOME : FOR I = 0 TO 9: READ Z: POKE 7 
68 + I,Z: NEXT : DATA 104,168,104,16 
6,223,154, 72,152,72,96 

2 ONERR GOTO 4000 


5 DST= CHRS" (4) 
20 PRINT DS$S'"PREFIX": INPUT APS 
100 AN = O:NK = 0:DF = 0: DIM DIS 


O:NN = 


sm 
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Christian Piard 


o le fichier sera effacé et remplacé, 

N la copie de ce fichier est annulée, 

s ce fichier et tous les éventuels suivants seront 
effacés et remplacés. 


Pour une question de rapidité, il est vivement 
conseillé de reformater le volume destination avant 
copie. 


Remarques 


Ce petit programme pourrait être adapté pour faire des 
sauvegardes d'un volume 800 Ko sur plusieurs 140 
Ko par exemple (ici, le cycle de copie s'interrompt en 
ligne 4040 en cas de saturation du disque destination). 


La commande externe COPY gère elle-même les 
erreurs et ne permet pas de les récupérer par 
l'ONERR. Les POKESs de la ligne 0 ont pour objet de 
détourner les erreurs vers le vecteur $BE09-$BEOB 
(Errout) de la page globale du Basic.System ; ainsi un 
‘Duplicate File Name’ est bien pris en charge par 
l'ONERR GOTO 4000. 


La ligne 100 prévoit 200 dossiers et sous-dossiers et 
500 fichiers par dossier au maximum : la modification 
des DIM devrait répondre à tous les besoins. 


La commande COPY ne gère pas les numéros de port 
et de lecteur aussi, il convient de nommer 
différemment les volumes origine et destination. 


(200),FIS$ (500) 
105 PRINT "Origine": PRINT "------- LL 
110 VTAB 5: INPUT "Port RSS ON SSI 
MITSOR SS 107 GOTO 11075 =, VAT 
S$) 
111" /VTAB 6: "INPUT MLect 5: MeUSr ON US. < 
AMOR DS > m2 MAIGOTOL111-D = "VAT, 
US$) 
112 PRINT DS"PREFIX,S"S",D"D: PRINT DS" 
PREFIX": INPUT OG$:OG$ = LEFTS$S (OGS 
, LEN (OG$) - 1) 
115 PRINT : PRINT : PRINT "Destination" 
2: PRINT "==-——mm———— " 
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Exemple d'exécution 


Origine / / e 

| /let 

HEC / / | ds 
I1gs 


Destination 
POFEE'RO) 
Se ProDOS 


Copie de /SPDK vers /COPIE.SPDK 


Ok ? O 


Recherche des catalogues... 


/SPDK 
/SPDK/MERLIN 
/SPDK/MERLIN/LIB 
/SPDK/MERLIN/UTIL 


Création des catalogues... 


/COPIE.SPDK/MERLIN 
/COPIE.SPDK/MERLIN/LIB 
/COPIE.SPDK/MERLIN/UTIL 


Copie des fichiers 


Copie de : /SPDK/PRODOS 

—————— > : /COPIE.SPDK/PRODOS 

Copie de : /SPDK/REBOOT.SYSTEM 

=—————— > : /COPIE.SPDK/REBOOT. SYSTEM 

Copie de : /SPDK/BASIC.SYSTEM 

ET > : /COPIE.SPDK/BASIC.SYSTEM 

Copie de : /SPDK/MERLIN/MERLIN.SYSTEM 
_————— > : /COPIE.SPDK/MERLIN/MERLIN.SYSTEM 
Copie de : /SPDK/MERLIN/LIB/SENDMSG.S 
_————— > : /COPIE.SPDK/MERLIN/LIB/SENDMSG.S 
Copie de : /SPDK/MERLIN/UTIL/XREF 

————— > : /COPIE.SPDK/MERLIN/UTIL/XREF 


Copie de : /SPDK/MERLIN/UTIL/XREFA 
: /COPIE.SPDK/MERLIN/UTIL/XREFA 


Pom's n° 32 


120 


121 


122 


229 


130 


140 


150 
155 
156 
157 
160 


190 
200 
210 
220 
2221 
222 
224 
226 
228 
230 
232 
234 


236 
238 
240 
250 


260 
270 
271 
TL 
280 


290 
300 


310 
915 
320 
330 
335 
336 
337 


VTAB 13: INPUT "Port ne SS NONESS 

< "1" OR S$ > "7" GOTO 120:5S = VAL 

(S$) 

VTAB 14: INPUT "Lect : ";U$: ON US 

< "1" OR D$ > "2" GOTO 121:D = VAL 

(US$) 

PRINT D$"PREFIX, S"S",D"D: PRINT DS" 
PREFIX": INPUT DES:DES$ = LEFTS$S (DES 
,; LEN (DES) - 1) 

IF OG$ = DES THEN PRINT : PRINT "L 
es volumes sont homonymes...": WAIT 

49152,128: POKE 49168,0: PRINT D$"PR 
EFIX"APS$: RUN 1 


PRINT : PRINT "Copie de "OG$" vers 
"DES 
PRINT, : INPUT "OK ?UT:RS:U TE RSI< 


> "O" AND R$ < > "o" THEN RUN 1 
PRINT : PRINT 
REM *XX*XX#4X#4XXXXXXX 


REM * Recherche des catalogues 

REM HARHHRHAHARAHAAXX 

PRINT "Recherche des catalogues..." 
: PRINT 
DIS(0) = OGS$ 
DT = 0 

FOR I = AN TO NN 
PAS$ = DIS$(I) 

PRINT PAS$ 

PRINT D$"OPEN"PAS$", TDIR 

PRINT D$"READ'"PA$ 
F = 0 

INPUT A$ 

IF F AND NOT LEN (AS) THEN 238 

IF NOT LEN (A$) THEN F = 1 

IF MID$S (A$,18,3) = "DIR" THEN DT 
= DT + 1:DIS(NN + DT) = PA$ + "/" + 
MID$S (A$,2,15): GOSUB 3000 

GOTO 228 

PRINT D$"CLOSE 

NEXT 

IF DT THEN AN = NN + IL:NN = NN + DT 
:DT = 0: GOTO 210 
NC = NN + DT 

REM *X*X*XKXXKHXXXXXXXXX 

REM * Création des catalogues 

REM *#*X*XAXXXXXXAXXXXX 

PRINT : PRINT "Création des catalog 
ues. ..": PRINT 

IF NOT NC GOTO 400 

FOR I = 1 TO NC:PA$ = DIS$(I): FOR J 

= 2 TO LEN (PA$): IF MIDS (PA$,J, 
1) = "/" THEN PA$ = MIDS$S (PAS,J + 1 
):J = LEN (PAS) 

NEXT 

PRINT DES$S"/"PAS 

PRINT DS$"CREATE"DES"/"PAS", TDIR 
NEXT 

REM #*X*X*AXAXXAAXXXXX 


REM * Copie des fichiers 
REM ***X#A#AAXAAXAXAXXX 
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340 


400 
405 
410 


420 
425 
430 
431 


440 


450 
455 
460 
470 
500 
501 
502 


503 
504 


505 
509 


510 
997 
999 


PRINT : PRINT "Copie des fichiers": 
PRINT 
FOR I = 0 TO NC 

N1 = 0 


PRINT D$"OPEN"DIS$S(I)",TDIR": PRINT 
D$"READ"DIS (I) 


F = 0 

INPUT AS$: INPUT AS 

REM 

INPUT A$: IF F AND NOT LEN (AS) T 
HEN 500 

IF NOT LEN (A$) THEN F = 1: GOTO 
430 

IF MID$S (A$,18,3) = "DIR" THEN 430 
FILS = DIS (TI) FUN / TE MIDS (AS, 2,15) 


N1 = N1 + 1:FIS$S(N1) = F1$ 

GOTO 430 

PRINT D$"CLOSE 

IF NOT N1 THEN 510 

FOR K = 1 TO N1:F1$ = FIS$S(K):F2$ = 
DES + RIGHTS (F1$, LEN (F1$) - LEN 

(OGS$) ) 

PRINT : PRINT "Copie de : "F1$ 
PRINT DS"COPY"F1S","F2$: PRINT "--- 
—---> : "F2S$S 

NEXT K 

FOR K = 0 TO 38: PRINT "-";: NEXT : 
PRINT 

NEXT I 

PRINT D$"PREFIX"APS 

END 


Editeur Plein Ecran 


Le Pacha 
DOS 3.3 - ProDOS 


1999 REM *****XX#4#++4X%4%4%% 

3000 U$ = DIS$S(NN + DT) :U = LEN (US$): FO 
Reæ= IN TO UNIES MIDS (US, 0, 1) =" 
" THEN DIS$S(NN + DT) = LEFTS (U$,J - 


LS JEU 

3010 NEXT : RETURN 

4000 CALL 768: REM Bug de l'OnErr 

4010 LI = PEEK (218) + 256 * PEEK (219 
):ER = PEEK (222) 

4020 IF ER = 19 AND LI = 320 THEN GOTO 
330 

4030 IF NOT (ER = 71 AND LI = 504) THE 
N 4035 

4031 ON DF GOTO 4034: PRINT SPC( 11)F2 


$" existe déjà": PRINT "Remplcmt : © 
/N Remplacer tous : S 

4032 WAIT 49152,128: POKE 49168,0:RR = 
PEEK (49152): IF RR = ASC ("N") OR 
RR = ASC ("n") THEN PRINT "Copie 
annulée": PRINT : GOTO 505 

4033 IF RR = ASC ("S") OR RR = 
S") THEN DF = 1 

4034 ON RR < > ASC ("O") AND RR < > 
ASC ("o") AND NOT DF GOTO 4032: PR 
INT DS"UNLOCK"F2$: PRINT D$"DELETE"F 
2$: PRINT "Effacemt : "F2$: RESUME 

4035 PRINT : PRINT CHRS (7) 

4040 IF NOT ER THEN PRINT "Disque des 
tination plein": END 

4099 PRINT D$"PREFIX"APS 

4100 PRINT "Erreur n° "ER" ligne "LI 


ÉPE 


Apple +, /e, /, IIgs 


ASC (" 


Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein écran 


sans relire les lignes. 


Recherchez toute chaîne de caractères. 
Choisissez vous-même les codes de contrôle d'EPE. 
Modifiez EPE : le fichier source est sur la disquette. 


200,00 F TTC franco 
(bon de commande page 74) 
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Jean-Louis 
Chauvin 


vec un Apple //, il est 
possible de gérer des 
gros fichiers de 
# données et, pour que 
Ÿ le temps d'accès aux 
articles reste acceptable, il est 
d'usage d'organiser le fichier en 
fichier ‘séquentiel indexé’, 
comportant une table d'index 
associant à la “clé” de chaque 
article son numéro dans le fichier. 





À partir de quelques centaines 
d'articles, la table ne tiendrait 
plus entière en mémoire et serait, 
sur disque, trop longue à 
explorer. Il faut alors la remplacer 
par un système de tables 
multiples, dont la gestion est à 
inclure dans le programme. 


Nous vous proposons ici une 
“UNIT” assurant la gestion d'un 
système de tables à deux niveaux. 


Les programmes 


Vous disposez de la disquette 
d'accompagnement 800 Ko : 


Les fichiers ont été transférés en 
ProDOS grâce à Universal File 
Conversion (UFC). C'est ce 
programme que vous utiliserez pour 
les repasser sous Pascal. 


Vous disposez de la disquette 
d'accompagnement 140 Ko: 

Deux possibilités : 

Sur la face ProDOS, il vous faudra 
utiliser UFC comme sur la disquette 
800K0. 

Les fichiers sont également en 
format DOS 3.3 sur l'autre face : 
utiliser le programme 
BASIC-PASCAL livré sur la 
disquette pour repasser les fichiers 
sous Pascal. 
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Vous pourrez l'utiliser, grâce au 
linker, avec le programme de 
gestion de fichier que vous 
écrirez selon vos besoins, en 
partant du modèle présenté. Les 
performances sont les suivantes : 
pour un fichier de 450 articles, 
l'extraction d'un d'entre eux par 
sa clé demande environ une 
seconde. Le tri alphabétique 
demande aussi environ une 
seconde par article. En outre, le 
fichier n'a pas à être purgé pour 
récupérer la place des articles 
supprimés. 


La démonstration 


Le programme ‘REPERTOIRE” 
gère un fichier d'adresses d'une 
capacité de 450 articles. La clé de 
chaque article comprend le nom et 
le prénom concaténés, puis 
tronqués à 15 caractères. 


Vous entrez d'abord le nom du 
fichier, par exemple ‘“ADRES- 
SES”. En cas d'absence sur le 
disque, il y a création du fichier 
de données ADRESSES.DATA 
et du fichier de tables 
ADRESSES.TABL (attention à la 
place disponible). Vous pouvez 
ensuite ajouter des articles, les 
rechercher un par un par le début 
de leur clé (pour éventuellement 
les modifier ou les supprimer), 
ou encore les lister par ordre 
alphabétique de clé à partir d'une 
origine quelconque. 


Le fonctionnement 


Les fonctions principales du 
programme P.REPERT sont 
assurées par les procédures 
AJOUTER, RECHERCHER et 
LISTER. Celles-ci font appel à 
des procédures de l'unité link 
U.GESTABL : 


+ CLASSER range dans les 
tables la clé et le numéro d'un 
article ; 

+ DECLASSER supprime une 
clé des tables et les réorganise ; 

+ REPERER et DECOUVRIR 
cherchent dans les tables le 
numéro d'article associé à une 
clé donnée (respectivement 
dans l'ordre descendant ou 
ascendant) ; 

+ LOCALISER cherche la 
position d'une clé dans les 
tables. 


Structure des tables 


Les tables sont composées 
d'éléments associant une clé et un 
index. Chaque table a une 
capacité de DIM éléments (plus 
un élément de rang 0 qui contient 
le nombre d'éléments présents). 
Le fichier comprend une table 
primaire, de numéro 0, et DIM 
tables secondaires. Les tables 
secondaires comprennent les clés 
de tous les articles, associées aux 
numéros d'article. 


Exemple de tables pour DIM=4 


Fichier DONNEES 
0 | 6! 

a IANDRE, ...| 
2 HUULES, 0 
3 DAVID, ...| 
4 | 
5 | 
6 


ALAIN, ... 
IRENE , 
IJEAN ,...| 





| ’ 


0 


Fichier INDEX 


1 2 3 4 


3 [ALA,1 | JEA, 3, IREN,2 1, | 
,3 IALA,4 |AND,1 |DAV,3 | 
SON PONS ENT 
2 JE. 61 | VUE 21e, | 
ON mr leu ue 
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La table primaire contient les clés 
de tête des tables secondaires, 
associées aux numéros de table. 


Procédures de l'UNIT 


Chacune des cinq procédures 
cherche d'abord dans la table 0 le 
numéro de la table secondaire 
concernée. Dans l'exemple repéré 
en italique, pour DECOUVRIR, 
le numéro d'article défini par la 
clé JUL, la table 0 aiguille sur la 
table 3 (car JEA<=JUL<REN), et 
celle-ci indique le numéro 2 de 
l'article. 


La procédure CLASSER 
fonctionne de façon à maintenir 
vide la dernière position de 
chaque table secondaire. Si, après 
insertion de l'élément (clé, 
numéro), cette table contient DIM 
éléments, elle est dégonflée par 
transfert de son dernier élément : 


+ soit dans la table de rang 
suivant si celle-ci contient 
moins de DIM-I éléments ; 

° sinon dans une nouvelle table, 
dont la clé est insérée à son 
tour dans la table 0. 


Procédures du 
programme 

Elles fonctionnent comme suit : 

+ MODIFIER : si la nouvelle clé 


Programme 
‘U.GESTABL’ 


diffère de l'ancienne, celle-ci 
est déclassée, puis la nouvelle 
est classée ; 

+ SUPPRIMER : l'ancienne clé 
est déclassée, puis une clé vide 
(chaîne ”) est classée, associée 
au même numéro d'article. Les 
articles supprimés peuvent être 
repérés par leurs clés vides en 
tête des tables ; 


+ AJOUTER si les tables 
comportent des clés vides en 
tête, le dernier des articles 
vides est extrait, puis modifié 
par substitution des nouvelles 
données à l'ancien contenu 
vide. Sinon, un nouvel article 
est créé et sa clé est classée 
dans les tables. 


Ainsi, les emplacements des 
articles supprimés sont réutilisés 
automatiquement, et le fichier n'a 
pas à être purgé. 


Saturation 


Au remplissage, les tables se 
saturent, dans le cas le moins 
favorable, avec alternativement 
une table à 1 élément et une table 
à DIM-1 éléments. Pour éviter la 
saturation, le nombre d'articles 
est plafonné à DIM*(DIM DIV 
2). Ainsi, dans P.REPERT, 
DIM=30 et le plafond est à 450 
articles. 


Mais, en supprimant ou en 
modifiant des articles, certaines 


—————————— 


tables peuvent se dégarnir. Pour 
éviter une saturation prématurée, 
les procédures suivantes 
interviennent si nécessaire : 


+ TASSER qui réunit deux tables 
de rang consécutif dont 
l'effectif total est inférieur à 
DIM ; 

+ COMPRIMER renumérote les 
tables en supprimant les tables 
vides. 


Création d'un 
nouveau 
programme 


Ajustez d'abord, si nécessaire et 
en tête de U.GESTABL.TEXT, 
la valeur de DIM d'après la taille 
de votre fichier de données, ainsi 
que le nombre de caractères de la 
clé, puis compilez cette unité. 


Écrivez ensuite votre programme 
de gestion de fichier, de 
préférence à partir de 
P.REPERT.TEXT, en évitant de 
modifier la mise en œuvre des 
procédures de gestion de tables 
dans AJOUTER, RECHER- 
CHER et LISTER. Après l'avoir 
compilé, il ne vous reste plus 
qu'à assembler avec le linker le 
code de l'unité dans celui du 
programme, puis à exécuter le 
code résultant. G 


PROCEDURE Decouvrir (Donnee:T_cle); 
PROCEDURE Localiser (Donnee:T_cle;VAR Rangl,Rang2: 


INTEGER) ; 


Note : le caractère ‘J indique la continuité de la ligne 


(*$S+*) 
UNIT Sequin Gestables; 


INTERFACE 


IMPLEMENTATION 


PROCEDURE Situer (Libelle:T cle; Table:T table; vf 
AR Rang:INTEGER) ; 


BEGIN 





CONST Dim=30; (*a ajuster selon taille fichier*) 
TYPE T_cle=STRING[15] (*a ajuster*); 
T_elem=RECORD 
Cle:T_cle; 
Index : INTEGER; 
END; 
T_table=ARRAY(0..Dim] OF T_elem; 
VAR Fitab:FILE OF T_ table; 
Numero, Num 2,Rang:INTEGER; 
Table1l, Table2:T table; 
PROCEDURE Classer (Libelle:T_cle;Numero:INTEGER) ; 
PROCEDURE Declasser (Libelle:T cle); 


PROCEDURE Reperer (Donnee:T_cle); 
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Rang:=1; 
WHILE (Libelle>=Table{Rang].Cle) AND (Rang<T] 
able[0].Index) 
DO Rang:=Rang+l; 
IF (Libelle>=Table{Rang].Cle) AND (Rang=Tab1/ 
e{0].Index) 
THEN Rang:=Rang+l; 
Rang:=Rang-1; 
END; 


PROCEDURE Inserer (Element :T_elem; VAR Table: T_ta/ 


ble); 
VAR Indice, Rang:INTEGER; 
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BEGIN 
Situer(Element.Cle,Table,Rang); 
FOR Indice:=Table{0].Index DOWNTO (Rang+1) DO 
Table[Indice+1]:=Table[Indice]; 
Table {[Rang+1]:=Element; 
Table{[0].Index:=Table{0].Index+1l; 
END; 


PROCEDURE Comprimer; 
{*Supprime les tables vides*) 
VAR I,Nombre, Trou, Rang:INTEGER; 
BEGIN 
Trou:=0;Nombre:=Table1{0].Index; 
FOR I:=1 TO Nombre DO 
IF Tablel[I1].Cle="?" THEN Trou:=Trout+1 
ELSE Tablel[I-Trou]:=Tablel[lI]; 
Table1l{[0].Index:=Tablel{0].Index-Trou; 
Trou:=0; 
FOR I:=1 TO Nombre DO BEGIN 
SEEK (Fitab, I) ;GET(Fitab); 
IF Fitab”"[0].Index=0 THEN Trou:=Trou+1l 
ELSE BEGIN 
SEEK (Fitab, I-Trou) ; PUT (Fitab); 
Rang:=1; 
WHILE (Tablel[Rang].Index<>I) AND (Ran] 
g<Nombre) 
DO Rang:=Rang+l; 
Tablel [Rang] .Index:=I-Trou; 
Tablel{Rang].Cle:=Fitab"{1].Cle; 
END; 
END; 
END; 


PROCEDURE Tasser; 
{*Reunit 2 Tables peu pleines et comprime*) 
VAR I,Indice, Nombre, Num À,Num B:INTEGER; 
TableA, TableB:Ttable; 
BEGIN 
I:=1; 
WHILE I<Table1[0].Index DO 
BEGIN 
Num A:=Tablel[I].Index; 
SEEK (Fitab,Num À);GET(Fitab);TableA:=Fi tab] 


Num B:=Tablel{I+1].Index; 
SEEK(Fitab, Num _B) ;GET(Fitab) ; TableBf 
:=Fitab"; 
Nombre:=TableA{0].Index+TableB[0].Index; 
IF Nombre<Dim THEN 
BEGIN 
FOR Indice:=1 TO TableB{0].Index DO 
TableA{TableA{0].Index+Indice] :=TableB/ 
[Indice]; 
TableB[(0].Index:=0; TableA[0].Index:=Nomb] 
re; 
Tablel{I+1].Cle:="?"; 
SEEK (Fitab, Num A) ;Fitab":=TableA;PUT (Fitf 
ab) ; 
SEEK (Fitab, Num B) ;Fitab":=TableB;PUT (Fit 
ab) ; 
I:=I1+1; 
END; 
I:=I+1; 
END; 
Comprimer; 
END; 


PROCEDURE Classer (*Libelle:T cle;Numero:INTEGER +f 
J; 
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{*Insere dans les tables la cle et le numero df 
"un article*) 
VAR Rang, Num 2:INTEGER;Element :T _elem; 


PROCEDURE Degonfler ( Rang _A:INTEGER; VAR Tabl eof 
, TableA:T table); 
(*Reporte dans une autre table le dernier e1/ 
em. d'une table pleine*) 
VAR TableB:T table; Element :T_elem; 
Rang _B, Num B:INTEGER; 
BEGIN 
Rang _B:=Rang At+1; 
Num _ B:=Table0[Rang B].Index; 
SEEK (Fitab, Num B); GET(Fitab); 
TableB:=Fitab"; 
Inserer (TableA[Dim],TableB) ; 
TableA[0].Index:=Dim-1l}; 
IF (TableB(0].Index=Dim) OR (Rang A=Table0/ 


[0].Index) 
{*TableB pleine ou Tablef 
A en queue dans Table0*) 
THEN 
BEGIN 


Num_B:=Table0[0].Index+1; 
TableB[{0].Index:=0; 
Inserer (TableA[Dim],TableB); 
Element.Cle:=TableB{1].Cle; 
Element .Index:=Num B; 
Inserer (Element, Table0); 
END 
ELSE 
Table0[Rang_B].Cle:=TableB{1].Cle; 
SEEK (Fitab,Num B); Fitab":=TableB; 
PUT(Fitab); 
END; 


BEGIN (*Classer*) 
Situer (Libelle, Tablel, Rang); 
IF Rang=0 THEN Rang:=1}; 
Num_2:=Tablel{Rang].Index; 
SEEK(Fitab,Num 2); GET(Fitab); 
Table2:=Fitab*"; 
Element.Cle:=Libelle; 
Element .Index :=Numero; 
Inserer (Element, Table2); 
IF Tablel[0].Index=0 THEN Table1[0].Index:=1; 
Tablel[Rang].Cle:=Table2[1].Cle; 
IF Table2[0].Index=-Dim THEN Degonfler (Rang, TJ 
ablel, Table2) ; 
SEEK (Fitab,Num 2); Fitab":=Table2; PUT(Fitab] 
Je 
IF Table1{[0].Index=Dim THEN Tasser; 
SEEK (Fitab,0); Fitab”:=Tablel; PUT(Fitab)}; 
END; 


PROCEDURE Declasser(*Libelle:T cle*)}; 
(*Retire un element de la Table2*) 
VAR Indice, Rang2:INTEGER; 
BEGIN 
Rang2:=Table2[0].Index; 
WHILE Libelle<>Table2[Rang2].C1] 
e DO Rang2:=Rang2-1; 
Table2[0].Index:=Table2[0].Index-1; 
FOR Indice:=Rang2 TO Table2[0].Index DO 
Table2[Indice]:=Table2{[Indice+1]; 
Tablel{[Rang].Cle:=Table2[1].Cle; 
Fitab”:=Table2; 
SEEK (Fitab, Num 2); PUT(Fitab)}; 














IF Table2[0].Index=0 THEN BEGIN 
Tablel[Rang].Cle:="?"; 
Comprimer;END; 

END; 


PROCEDURE Reperer (*Donnee:T_cle*); 
{*Repere un article d'apres sa cle*) 


VAR Rang2:INTEGER; 
BEGIN 
Situer (Donnee, Table1, Rang); 
Num_2:=Tablel/{Rang] .Index; 
SEEK(Fitab,Num 2); GET(Fitab); 
Table2:=Fitab"; 
Rang2:=Fitab"[0].Index; 
WHILE (Donnee<>Fitab"{[Rang2].Cle) AND (Rang2J 
>0) 

DO Rang2:=Rang2-1l; 
Numero:=Fitab" {Rang2].Index; 
IF Rang2=0 THEN Numero:=0; 

END; 


PROCEDURE Decouvrir (*Donnee:T_cle*); 
VAR Rang2:INTEGER; 
BEGIN 
Situer (Donnee, Tablel, Rang) ; 





IF Rang=0 THEN Rang:=1; 
Num _ 2:=Tablel{[Rang].Index; 
SEEK (Fitab,Num 2);GET(Fitab); 
Table2:=Fitab"; 
Rang2:=1; 
WHILE (POS (Donnee,Fitab”"{Rang2].Cle)<>1) AND 
{(Rang2<Fitab"{[0].Index) DO Rang2:=Rang2+1l; 
Numero:=Fitab" {Rang2].Index; 
IF POS(Donnee,Fitab"{Rang2].Cle)<>1 THEN Num/ 
ero:=0; 
END; 


PROCEDURE Localiser (*Donnee:T_cle; VAR Rangl, Rang 
2:INTEGER*); 


BEGIN 
Situer (Donnee, Tablel,Rangl);IF Rangl=0 THEN J 
Rangl:=1; 


Num _ 2:=Tablel[Rang1l].Index; 

SEEK(Fitab,Num 2);GET(Fitab); 

Rang2:=1; 

WHILE (Donnee>Fitab"{[Rang2].Cle) AND (Rang2</ 
=Fitab"{0].Index) 

DO Rang2:=Rang2+1; 

IF Rang2>Fitab“{0].Index THEN BEGIN Rang2:=1/ 

;Rangl:=Rangl+1l;END; 
END; 


IF (Rang<Table1{[0].Index) AND (POS (Donnee, Tal BEGIN 


blel[Rang+1].Cle)=1) 
THEN Rang:=Rang+l; 


Numero:=0; Num 2:=0;Rang:=0; 


END. 





Programme 
‘P.REPERT 


Note : le caractère ‘f indique la continuité de la ligne 


PROGRAM Repertoire; 
(*fichier sequentiel indexe*) 
USES APPLESTUFF, 
(*$U #5:U.GESTABL.CODE *) Sequin gestables; 
TYPE String20=STRING{20]; 
String5=STRING(5]; 
VAR Fich:FILE OF RECORD CASE INTEGER OF 
0: (Der _article:INTEGER); 
l: (Nom,Prenom,Adressel,Adresse2,Ville, / 
Telephone:String20; 
Code postal:Strings5); 
END; 
Fin,Plafond:INTEGER; 
Cle 1:T cle; 
Choix:CHAR; Erreur :BOOLEAN; 


PROCEDURE Synthese (Nom, Prenom:String20;VAR Raccoul 
rci:T_ cle); 
(*Cree la cle avec nom et prenom*) 
VAR Nom prenom:STRING(41]; 
BEGIN 
Nom_prenom:=CONCAT (Nom, Prenom) ; 
IF LENGTH (Nom prenom) >15 THEN Raccourci :=COPY/ 
(Nom prenom, 1,15) 
ELSE Raccourci:=Nom prenom; 
END; 


PROCEDURE Initfichier; 

TYPE T_nom=STRING[23]; 

VAR Test : CHAR; 
Nom_fichier,Nom table:T nom; 





PROCEDURE Nommer (VAR Fichier, Table:T_ nom); 

VAR Nom, Volume: STRING{[10];Lecteur:CHAR; 

BEGIN 
WRITE ("nom du fichier (max. 10 caracteres): ' 
> 
READLN (Nom) ; 
WRITE ('lecteur 1 OU 2 ? ");READ(Lecteur) ; WRI] 
TELN; 

STR (ORD (Lecteur) -45, Volume); 
Fichier:=CONCAT('#",Volume, ":'",Nom, ".DATA'); 
Table:=CONCAT ('"#",Volume, ":',Nom, ".TABL'); 

END; 


PROCEDURE Creer; 
VAR Nombre : INTEGER; Reponse: STRING[5]; 
BEGIN 
WRITE ("taper CREER pour confirmer: ‘); 
READLN (Reponse) ; 
IF Reponse="CREER" THEN 
BEGIN 
REWRITE (Fich, Nom fichier); 
Fich*.Der_ article:=0; PUT(Fich); 
WRITE ("reserver combien de fiches ?'); REA] 
DLN (Nombre) ; 
Fich".Der article:=1; 
FOR Numero:=1 TO Nombre DO PUT(Fich); 
CLOSE (Fich, LOCK) ; REWRITE (Fitab, Nom table); 
Fitab"{0].Index:=0;Fitab"[0].Cle:=""; 
FOR Numero:=1 TO Dim DO 


BEGIN 
Fitab” [Numero] .Index:=1; 
Fitab”"[Numero].Cle:=" "; 
END; 
FOR Numero:=0 TO Dim DO PUT(Fitab); 
CLOSE (Fitab, LOCK); 
END; 
END; 
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BEGIN (*Initfichier*) 
Erreur:=FALSE; 
REPEAT 
Nommer (Nomfichier,Nomtable) ; 
(*$I-*) 
CLOSE (Fich) ;RESET (Fich,Nomfichier); 
(*SI+*) 
IF IORESULT=0 THEN Test:="0" 
ELSE BEGIN 
WRITELN ("fichier introuvable - voul ez-vous/ 
CE 
WRITELN('- le Creer"); 
WRITELN('- Modifier son nom 
VA 
READ (Test) ;WRITELN; 
IF Test='C'" THEN Creer; 
END; 
UNTIL Test<>'M'; 
(*$I-*) 
CLOSE (Fich); RESET(Fich, Nom fichier); 
(*$I+*) 
IF IORESULT<>0 
THEN BEGIN 
WRITELN (‘traitement impossible"); 
READ (Choix) ; 
Erreur :=TRUE; END 
ELSE BEGIN 
Fin:=Fich".Der article; 
CLOSE (Fitab) ; RESET (Fitab,Nom table); 
Tablel:=Fitab"; 
END; 
END; 


PROCEDURE Masque; 


BEGIN 
PAGE (OUTPUT) ; 
WRITELN('fiche individuelle n[ ‘",Numero); 
WRITELN ('===========2============= 1e 


GOTOXY (0, 4) ;WRITELN ("nom") ;WRITE ("prenom"); 
GOTOXY (0, 7) ;WRITE ("adresse"); 
GOTOXY(0,10);:WRITE('code, ville"); 
GOTOXY (0,12); WRITELN ("telephone"); 

END; 


PROCEDURE Saisir; 
VAR Reponse:CHAR;Chaine:String20; 


PROCEDURE Lire(X, Y,L:INTEGER; VAR Champ:String20); 
VAR Donnee:STRING(21]; 
BEGIN 
GOTOXY (X+L, Y);WRITE('"<'); 
GOTOXY (X, Y) ; READLN (Donnee) ; 
IF LENGTH (Donnee)>L THEN Donnee:=COPY (Donneel 
,1,L); 
IF Donnee<>'"" THEN Champ:=Donnee; 
GOTOXY (X, Y) ;WRITE (Champ, CHR (29) 
): (*effacement fin de ligne*) 
END; 


BEGIN (*Saisir*) 
REPEAT 
Lire(14,4,20,Fich°.Nom); 
Lire(14,5,20,Fich".Prenom); 
Lire(14,7,20,Fich".Adressel); 
Lire(14,8,20,Fich".Adresse2); 
Chaine:=Fich".Code postal; 
Lire(14,10,5,Chaine) ;Fich".Code postal:=Chai 
ne; 
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GOTOXY (20,10);WRITE(Fich".Ville); 
Lire(20,10,20,Fich".Ville); 
Lire(14,12,20,Fich°.Telephone); 
GOTOXY (14,16);WRITE ("accord (O/N)? ‘'}); 
READ (Reponse) ;WRITELN; 
UNTIL Reponse="O"; 
END; 


PROCEDURE Afficher; 

BEGIN 
GOTOXY (14,4) ;:WRITE(Fich".Nom) ; 
GOTOXY (14, 5) :WRITE (Fich".Prenom); 
GOTOXY (14,7) ;WRITE (Fich".Adressel); 
GOTOXY (14, 8) ;WRITE (Fich".Adresse2) ; 
GOTOXY (14,10);WRITE(Fich".Code postal); 
GOTOXY (20,10);WRITE(Fich".Ville); 
GOTOXY (14,12) ;WRITE(Fich”".Telephone); 
WRITELN; 

END; 


PROCEDURE Effacer; 

BEGIN 
Fich".Nom:=""; 
Fich".Prenom:=""; 
Fich".Adressel:=""; 
Fich".Adresse2:=""; 
Fich".Code postal:=""; 
Fich*.Ville:=""; 
Fich".Telephone:=""; 

END; 


PROCEDURE Ajouter; 
(*Ajoute une nouvelle fiche*) 
VAR Choix1:CHAR;Sature:BOOLEAN; 


PROCEDURE Auto; 
(*Cree une fiche aleatoire, pour essai*) 
VAR Chaine:String20; 


PROCEDURE Alea (Longueur : INTEGER; VAR Chaine: Stf 
ring20); 
(*Cree une chaine aleatoire*) 
VAR I, L:INTEGER; 
BEGIN 
Chaine:=" 
L:=RANDOM MOD Longueur+l; 
FOR I:=1 TO L DO Chaine[I] : =CHR (RANDOM Mof 
D 26+65); 
Chaine:=COPY (Chaine, 1,L); 
END; 


BEGIN (*Auto*) 
RANDOMIZE; 
Alea(20,Fich".Nom); 
Alea(20,Fich".Prenom); 
Alea(20,Fich".Adressel}); 
Alea(20,Fich".Adresse2); 
Alea(20,Fich".Ville); 
Alea(20,Fich".Telephone); 
Alea(5,Chaine);Fich".Code postal:=Chaine; 
Afficher; 

END; 


BEGIN (*Ajouter*) 
IF (Fin<Plafond) OR (Table1{[1].Cle="")THEN Sat 
ure:=FALSE 
ELSE Sature:=TRUE; 
Choix1:="0"; 
WHILE (Choix1l="O") AND (Sature=FALSE) DO 
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BEGIN 
IF Tablel[1].Cle='"" (*si des fiches ont ete J 
effacees*) 
THEN BEGIN Reperer ("');Declasser('');END 
ELSE BEGIN Fin:=Fin+1l,;Numero:=Fin;END; 
Effacer; 
Masque; 
IF Choix="à" THEN Auto (*pour essai *f 
) ELSE 
Saisir; 
SEEK (Fich, Numero) ;PUT(Fich); 
Synthese (Fich”.Nom,Fich".Prenom,Cle 1); 
SEEK(Fich,0); Fich".Der article:=Fin; PUT(Fi] 
ch); 
Classer (Cle 1,Numero) ; 
IF (Fin<Plafond) OR (Table1[1].Cle='") THEN J 
Sature:=FALSE 
ELSE Sature:=TRUE; 
IF Sature THEN WRITELN('fichier sature') 
ELSE BEGIN 
GOTOXY (14,18) ;WRITE("fiche suivante (O/N] 
FrP)> 
READ (Choix1); WRITELN; 
END; 
END; 
END; 


PROCEDURE Rechercher; 
{*Recherche un article d'apres sa cle*) 
VAR Choix M:CHAR; Nom, Prenom:String20; 


PROCEDURE Modifier; 
{(*Modifie un article*) 
VAR Cle 2:T_cle; 
BEGIN 
GOTOXY (14,18): WRITE (CHR(29)); (*efface ligne 
2 
Synthese (Fich".Nom,Fich".Prenom,Cle 1); 
Saisir; 
Synthese (Fich”".Nom,Fich”".Prenom,Cle 2); 
IF Cle 2<>Cle 1 THEN BEGIN 
Declasser(Cle 1); 
Classer (Cle 2,Numero); 
END; 
SEEK (Fich, Numero); PUT(Fich); 
END; 


PROCEDURE Supprimer; 
{*Supprime un article*) 
VAR Reponse:CHAR; 
BEGIN 
WRITE ("taper X pour confirmer: r)J 
; READ (Reponse) ; WRITELN; 
IF Reponse="X" THEN 
BEGIN 
Synthese (Fich".Nom,Fich".Prenom,Cle 1); 
Declasser(Cle 1); 
Classer ('"'",Numero); 
Effacer; 
SEEK (Fich, Numero) ;PUT(Fich) ; 
END; 
END; 


BEGIN (*Rechercher*) 


Choix:="O0"; 
WHILE Choix="O" DO 
BEGIN 


PAGE (OUTPUT) ;ChoixM:="'N"'; 
"); READLN (Nom); 


WRITE ("nom ? 





WRITE ("prenom ? ‘");READLN (Prenom) ; 
Synthese (Nom, Prenom,Cle 1); 
Decouvrir(Cle 1); 
IF Numero=0 THEN WRITELN("nom inconnu) 
ELSE BEGIN 
SEEK (Fich, Numero) ; 
Masque; Afficher; 
GOTOXY (14,18); 
WRITE ("voulez-vous Modifier ou Supprime/ 
r cette fiche ?'); 
READ (ChoixM) ;WRITELN; 
IF ChoixM="M" THEN Modifier; 
IF ChoixM="S" THEN Supprimer; 
END; 
GOTOXY (14,20); WRITE('autre fiche (O/N)?'); 
READ (Choix) ; WRITELN; 
END; 
END; 


GET(Fich); 


PROCEDURE Lister; 
VAR I1,1I2:INTEGER; Choix:CHAR; Debut:Tcle; 
BEGIN 
WRITE ("debut de la liste ? ");READLN{(Debut); 
IF Debut='" THEN Debut:="!"; (*pour eviter de 1/ 
ister les fiches effacees*) 
Localiser (Debut,1I1l,12); 
PAGE (OUTPUT) ; 
WRITELN ("pour arreter, 
WRITELN('pour quitter, 
WRITE ("numero 
); 
WRITELN ("prenom 
HRITELN; 
Choix:=" !}; 
WHILE (I1<=Tablel{0].Index) AND (Choix<>'Q') DO 
BEGIN 
Num 2:=Table1[11]. Index; 
SEEK (Fitab,Num 2); GET(Fitab); Table2:=Fi tab 


A. 
‘ 


Numero:=Table2[1I2].Index; 
SEEK (Fich, Numero); GET(Fich); 
WRITE (Numero:4," ‘",Fich".Nom:20," "); 
WRITELN (Fich".Prenom:20," ",Fich".Ville:20); 
IF KEYPRESS THEN BEGIN READ (Choix); READ {Chf 
oix); END; 
I2:=12+1; 
IF I2>Table2(0].Index THEN BEGIN 12:=1; Il1:=f 
I1+1; END; 
END; 
END; 


taper sur une fleche"); 
taper Q'); WRITELN; 
nom Gi 


viile'); 


BEGIN (“debut du programme*) 
Plafond:=Dim*(Dim DIV 2); 
PAGE (OUTPUT) ; 
Initfichier; 
IF Erreur=FALSE THEN REPEAT 
WRITELN; 
WRITELN "choisissez: Ajouter une fiche, Recher/ 


cher, Lister, Quitter :'"); 
WRITELN ('"(ou "à": ajout aleatoire)"'); 
READ (Choix); WRITELN; 


CASE Choix OF 
Ar Fa: AJOUCEE; 
"’L': Lister; 
"R': Rechercher; 
END; 
UNTIL Choix="Q"; 
CLOSE (Fich) ; CLOSE (Fitab); 
END. 


(*'à'": pour essai*) 
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afale de nouveautés 

chez Apple. Elles 

ont été dévoilées en 
# août et feront leurs 
débuts européens à l'Apple 
Expo. 


La première de ces innovations 
est baptisée HyperCard, après 
avoir été connue sous le nom de 
code WildCard. Que les lecteurs 
anglophones ne se laissent 
toutefois pas abuser par cette 
désignation : il ne s'agit pas 
d'une carte d'extension, mais bel 
et bien d'un programme. Le plus 
difficile est d'expliquer exacte- 
ment à quoi il sert. Chez Apple, 
on le décrit seulement comme un 
‘hypermédia’ ou langage de 
navigation sur les bases de 
données. C'est en effet la 
première caractéristique de cette 
application, qui constitue un 
‘Hypertexte’. 


L'hypertexte est un programme 
permettant, en cliquant sur un 
dessin à l'écran d'obtenir des 
informations plus détaillées sur ce 
dessin, et ainsi de suite. La firme 
Owl, fut la première à dévoiler 
un produit de ce genre avec 
Glue. Elle fut donc la première à 
râler lorsque Apple dévoila son 
HyperCard. D'autant que le 
programme d'Apple sera distri- 
bué gratuitement, eh oui gratuite- 
ment, avec tous les Macintosh. 


Certaines applications déjà 
réalisées laissent entrevoir les 
utilisations de cet outil. L'une est 
un manuel de réparation de 
bicyclettes. Lorsque l'on clique 
sur une roue, On voit s'ouvrir une 
nouvelle fenêtre détaillant la pièce 
sur laquelle on a cliqué, et ainsi 
de suite. L'autre est le manuel 
d'utilisation de l'HyperCard, qui 
se présente à l'écran comme un 
bloc note illustré. On clique sur le 
titre d'un sujet, ou sur une 
information qu'on souhaite 
détailler et la page se tourne pour 
afficher la leçon. Très joli. Rien 
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d'étonnant, si cet outil semble 
voué à la recherche des millions 
d'informations stockées, par 
exemple, sur un CD Rom laser. 


Œuvre de Bill Atkinson, le 
père de MacPaint. Apple 
Hypercard est en fait un 
programme de gestion de docu- 
ments utilisant des fiches (cards) 
et des piles (stacks). La program- 
mation consiste à établir des 
relations entre cartes et piles grâce 
à des ‘boutons’ (des zones sur 
lesquelles on clique à l'écran). 
Ces boutons sont créés simple- 
ment grâce à un menu contenant 
des outils, il reste ensuite à 
définir l'action provoquée par un 
clic de souris : l'ouverture d'une 
autre fiche, ou grâce à un script 
(séquences de commandes d'un 
langage baptisé HyperTalk et 
comprenant une cinquantaine 
d'instructions) la mise en oeuvre 
d'une série d'actions (les 
programmeurs noteront qu'on 
peut même ouvrir alors une 
application, ou déboucher sur un 
programme écrit en MPW, le 
langage de programmation 
d'Apple). 


HyperCard a déjà suscité tout un 
foisonnement de mini- 
applications baptisées stackware. 
Comme, par exemple, un guide 
touristique interactif. Bref, 
beaucoup de bénéfices pour pas 
grand chose, puisque HyperCard 
sera distribué, rappelons le, 
gratuitement. Le seul vrai 
problème est que ce programme 
consomme à lui seul 360Ko 
d'une disquette, et que les 
fichiers qui incorporent beaucoup 
de graphiques sont encore plus 
voraces. Avec HyperCard, le 
standard minimum du Mac vient 
de passer à une configuration 
incluant au moins un disque dur 
de 20 Mégas. Faute de quoi, on 
ne peut vraiment utiliser cette 
application géniale et dont on n'a 
pas fini de parler. 





Jénn-Michel Gourévitch 


Et ce n'est pas fini, car l'autre 
nouveauté d'Apple, le 
MultiFinder est lui particulière- 
ment exigeant en mémoire vive. 
Connu sous le nom de Juggler, 
ce MultiFinder est incorporé à la 
dernière version du Finder et 
repose sur les programmes écrits 
par Andy Hertzfeld sous le 
nom de Servant. Il s'agit d'un 
commutateur d'applications inté- 
gré au Bureau du Macintosh. 


À la différence du Switcher, 
après avoir cliqué deux fois sur le 
MultiFinder, les applications 
deviennent simplement des 
fenêtres posées sur le bureau que 
l'on peut rétrécir par leur case de 
contrôle de taille. En dessous 
c'est toujours le bureau. On passe 
d'une application à l'autre en 
cliquant sur sa fenêtre et son 
menu vient alors prendre place 
dans la barre des menus du 
Macintosh. Pratique, pour 
échanger des documents entre les 
programmes et lorsque les 
auteurs des programmes l'auront 
prévu, on pourra réaliser une 
impression en tâche de fonds. On 
peut ouvrir simultanément 30 
applications. 


À condition de disposer de 
suffisamment de mémoire vive. 
Car, et c'est là que le bât blesse, 
il faut au minimum 2 Mégas de 
mémoire pour utiliser vraiment le 
MultiFinder (1 Méga est un peu 
juste, et S12Ko sont 
définitivement insuffisants). Une 
seule solution : acheter des 
extensions de mémoire. Il y a de 
la râlerie dans l'air. 


Autre nouveauté en provenance 
d'Apple : une imprimante bapti- 
sée ImageWriter II LQ. La LQ 
dispose d'une résolution de 216 x 
216 points par pouce. Soit le 
double de l'ancienne Image 
Writer, et à peine moins que la 
Laser Writer (300 x 300 points 
par pouce). Cette imprimante 
matricielle de très haute qualité 
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qui ne dispose cependant pas du 
langage de description de page 
PostScript (comme la Laser) est 
vendue aux alentours de 13 000 
Francs HT. Dans le même temps, 
la Laser a baissé de plus de 20% 
passant de 49 900 F à 39 900 F 
HT. L'offre d'Apple se resserre 
donc. On attend pour les 
prochains mois une imprimante 
laser de très haut de gamme qui 
pourrait frôler les 80 000 Francs, 
et offrirait une résolution supé- 
rieure à 400 points par pouce, se 
rapprochant encore davantage des 
machines d'imprimerie profes- 
sionnelle. 


En bas de gamme de laser, on 
attendait une machine Apple. 
Surprise, c'est General 
Computer qui l'a sortie. 
Baptisée Personal Laser 
Printer, cette imprimante vendue 
2 600 dollars aux Etats-Unis 
pourrait arriver en France aux 
alentours de 26 000 Francs. Elle 
ne possède pas le langage de 
description de page PostScript (ce 
qui exclut actuellement de 
pouvoir l'utiliser avec le pro- 
gramme Illustrator d'Adobe). 
On peut cependant imprimer des 
documents réalisés avec 
PageMaker, qui s'est véritable- 
ment imposé comme un standard 
dans l'édition électronique, dont 
nous allons parler plus loin. 


En attendant, on travaille bien 
évidemment chez Apple à toute 
une salve de nouveautés. On a 
ainsi entendu parler d'un Mac 
SE qui pourrait inclure un écran 
couleurs, voire la carte du Mac 
II avec un seul connecteur 
d'extensions, d'un SE, qui serait 
vendu, à l'inverse, sans écran, 
etc. Il est sûr qu'une équipe 
travaille sur un micro-ordinateur 
équipé d'un processeur 68030. 


On se rapproche peu à peu du 
pari de John Sculley, qui voudrait 
offrir un micro-ordinateur offrant 
une puissance de 100 Mips 
(Millions d'instructions par 
seconde), c'est-à-dire la puis- 
sance des volumineuses unités 
centrales d'aujourd'hui, et ce 
avant l'an 2000. 


Côté programmes, la démarche 
d'Apple de créer une filiale de 


fabrication de logiciels (dont elle 
pourrait toutefois devenir action- 
naire minoritaire) a suscité 
quelques remous aux Etats-Unis. 
Il s'agit en fait de contrebalancer 
la position dominante de 
MicroSoft. 


En Europe, une unité de 
programmes stratégiques se 
charge d'aider les développeurs 
de logiciels. On peut déjà 
discerner les créneaux qu'Apple 
va tenter de favoriser. En premier 
lieu, bien évidemment, la 
publication électronique, en 
second lieu, les langages de 
programmation. Et puis toutes les 
applications tirant parti de la 
puissance et des caractéristiques 
exclusives du Mac II. 


Aïnsi, il faut s'attendre à voir 
encore davantage de logiciels de 
CAO et d'architecture. C'est que, 
comme le remarquait récemment 
une revue de CAO américaine, 
l'Europe occupe dans ce domaine 
une position privilégiée. Bien que 
le nombre d'architectes rapporté 
aux habitants soit plus faible de 
ce côté-ci de l'Atlantique. Enfin, 
seront privilégiés tous les 
programmes scientifiques, 
permettant d'implanter le 
Macintosh dans des bureaux 
d'études, ou au contrôle de 
production en usine. On n'a pas 
fini d'en voir. Et de toutes les 
couleurs, grâce à la marée 
montante des écrans polychromes 
pour le Mac II... 


Traitements 
de texte à gogo 


Tandis que les utilisateurs de 
Writer Plus continuent à se 
désoler des bugs sauvages d'un 
programme par ailleurs génial, 
Word s'est imposé sur le 
marché. Peut être pas pour 
longtemps. Car voici que 
WordPerfect, le géant du 
traitement de texte sur IBM PC 
s'apprête à sortir une version 
pour le Mac qui va faire quelque 
bruit. Avec des macro- 
commandes, un vérificateur 
orthographique et un dictionnaire 
de synonymes, le multi- 


ee 





colonnage à l'écran, la césure 
automatique, la génération de 
notes de bas de page, tables des 
matières, d'index et de 
traitements d'idées. Et surtout la 
possibilité d'échanger des fichiers 
avec ceux créés sur les IBM, les 
Vax de Digital Equipment et les 
Data General. 


Emploi 


Société de Recherche/ 
Développement en pointe 
dans son domaine (50 
personnes) offre 
Poste d'informaticien 
Bac +2,3à5ans 
d'expérience, dont un an 
minimum en micro- 
informatique pour : 
0 mise en place d'un réseau 
Macintosh (AppleTalk) ; 
Q développement d'une base 
de données multi- 
utilisateurs sur 4D ; 
0 formation du personnel ; 
© réponse aux besoins des 
chercheurs. 


Possibilité d'évolution au 
sein du groupe pour un 
spécialiste micro. 


Contact : Sté Clonatec, 
M. Mergui (1) 43 42 43 88 


Vous utilisez un Apple 
|, un Mac ? 

Vous suivez l'évolution 
de l'informatique ? 

Les nouveaux produits 
ne vous échappent pas ? 
Par votre pratique de 
l'anglais vous êtes au fait 
des nouvelles 
d'outre-atlantique ? 
Vous pouvez consacrer 
quelques heures à votre 
revue préférée ? 


Écrivez à Éditions Mev, 12, rue 
d'Anjou - 78000 Versailles 
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XPress grâce à sa création par la rupture de standard du | 


En France, Talor déjà auteur 
d'un traitement de texte pour 
l'IBM PC a développé Textor 4 
pour le Macintosh capable, lui 
aussi d'échanger des fichiers avec 
le monde MS DOS. Textor vise le 
marché des techniciens avec un 
éditeur de formules mathéma- 
tiques et un tableur. 


Autre traitement de texte vedette 
outre Atlantique : Full Write, un 
logiciel avec multi-colonnages 
générations de “post it notes” 
qu'on peut ‘coller’ sur un 
document et système de dessin 
incorporé, avec possibilité 
d'habillage automatique d'images 
irrégulières par un un texte... 


Publication 
électronique : 
le grand débat 


Du côté de la publication 
électronique, on s'agite aussi 
beaucoup. Aldus a sorti la 
version 2.0 de PageMaker et 
travaille déjà à une version 3.0 
encore perfectionnée. LettraSet 
a sorti une version 4.0 de Ready 
Set Go!. On y dispose 
notamment d'un bureau à la 
présentation plus claire avec une 
main pour déplacer la page, le 
tracé de lignes diagonales, une 
palette de filets disponible par 
menus, un espacement contrôlé 
entre les mots, la spécification 
possible des césures avec un 
dictionnaire d'exceptions, un 
glossaire, un vérificateur ortho- 
graphique, l'habillage automati- 
que de dessins, etc. Quant à 
RagTime, importé par 
ItalSoft, il s'offre déjà une 
version 2 avec habillage des 
réserves, crénage, 40 trames de 
fond, une grille de construction, 
un traitement de texte avec césure 
automatique algorithmique, un 
dictionnaire d'exceptions 
personnalisables, etc. 


Au sommet des programmes 
d'édition, le match s'annonce 
passionnant entre PageMaker et 
XPress de Quark, vendu chez 
nous par P-Ingénierie. Disons 
simplement en résumé, que 
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obligatoire de “réserves” pour le 
texte ou l'image peut être plus 
facilement manipulé par 
quelqu'un n'ayant aucune notion 
de mise en page, mais pour qui 
l'on a pré-défini des gabarits. En 
revanche, PageMaker qui 
accepte n'importe où des textes 
ou des images, sans que l'on ait 
besoin de le spécifier se révèle 
souple et particulièrement rentable 
aux mains d'utilisateurs 
imaginatifs. 

L'arrivée de Scoop pourrait 
encore agiter ce nouveau secteur 
en plein développement et où le 
Macintosh tient toujours le haut 
du pavé. 


L'avenir ? 


L'année 1988 se révélera cruciale 
pour Apple. Si la firme de 
Cupertino sait bien utiliser ses 
arguments et étendre ses 
positions dans des domaines où 
elle est en pointe, elle peut 
profiter de l'instabilité instaurée 


monde IBM. Il ne serait pas 
étonnant d'assister dans ce débat 
à une alliance entre DEC (le 
spécialiste numéro 1 des mini- 
ordinateurs) et Apple pour faire la 
nique au géant IBM. On constate 
déjà un grand nombre de 
connections réalisées entre des 
Mac et des VAX de DEC. 
L'apparition de cartes permettant 
de relier les Mac aux réseaux 
Ethernet (avec notamment le 
logiciel 3 COM Plus) est un 
signe important dans ce sens. 


Quant à AppleTalk, le réseau de 
connections d'Apple, il est 
aujourd'hui tout simplement le 
plus répandu au monde reliant 
entre eux quelque 450 000 
Macintosh. L'avenir du Mac est 
donc dans les réseaux. On 
s'éloigne à grands pas de la 
machine des “travailleurs du 
savoir” vantée jadis par Steve 
Jobs. 


Et si c'était la clé du succès ? 


g: 





Dans cette nouvelle rubrique, nous vous présentons une sélection des 
questions/réponses échangées sur la messagerie de CalvaCom. Notre 


boîte à lettres : empi1. 


7) Bonjour. *AR* - 14 I. 


De: Cédric NEROT (CN10) - 02 sep 87 22h26 


Bonjour ! 


Enfin je trouve 5 minutes pour faire exploser ma joie ! Pom's est sur 
Calva !!! Nous passerons rapidement sur tout le bien que je pense de vous 
(L'heure de connexion ici bas n'est malheureusement pas donnée !) pour 


arriver à ma question. 


Envisagez vous de télécharger les programmes de la revue via Calva, avec, si 
besoin est, dédommagement ? || semble en effet bien plus pratique, et bien plus 
rapide (pour ne pas dire : plus sur, avec les Postes niçoises) de récupérer un 
texte de cette façon que par une disquette soumise aux voies de fait postales. 


Qu'en pensez vous ? 


Amicalement & admirativement votre... 


Merci, vous nous faites rosir.. Nous pensons dans un premier temps mettre 
à disposition sur bibliothèque CalvaCom des programmes mais nous 
réfléchissons également à un projet plus large : la chose est à l'étude. 
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4) Questions naives - 43 |. 
De: Patrick BARCZEWSKI (PB46) - 04 aou 87 11h06 


Bonjour à tous, et merci d'avance du temps que vous voudrez bien 
consacrer aux questions suivantes qui vous sembleront sans doute 
bien candides. 


1/UPGRADE 

Abonné à Pom's, je dispose des programmes suivants : 

1/ Minitel (disquette commandée avec votre numéro 27) 

2] Interpom's (disquette commandée avec votre numéro 28) 

Je souhaite les mettre au niveau des versions décrites dans votre 
numéro 31, et vous commander le programme CLV_POM'S. 

Un tarif spécial est-il prévu ? 


2/AFFICHAGE 80 COLONNES 

Le serveur envoie en ligne au minitel IB la commande qui le fait basculer 
en mode 80 colonnes. J'ai des problèmes pour restituer localement un 
fichier sur lequel figure un tel passage. 

En d'autres termes, en mode consultation de votre programme minitel, 
quelle est la séquence de touche qui permet de reproduire localement 
sur le 1B cette commande du serveur? 


3/FILTRAGE DES CARACTERES ACCENTUES 

Votre programme minitel, mode préparation de texte, avec lequel ce 
message est passé sur Calvacom après préparation sous Macwrite, 
semble, comme vous pouvez le constater, avoir des difficultés à filtrer 
les caractères accentués. Comment y remédier? 


Encore bravo pour ces programmes de comm vraiment utiles. 
Cordialement, 
Patrick Barczewski (PB46) 


1/UPGRADE 

Pour une question de droits d'auteur {modif IBM obligent), nous ne 
pouvons envisager de tarifs spéciaux pour InterPom's, même pour les 
fidèles... 

La nouvelle version Mac du programme Minitel du n° 27 est sur la 
disquette 31, en votre possession si vous êtes abonné. 


2/AFFICHAGE 80 COLONNES 

Le Minitel passe en mode téléinformatique français par la séquence : 
FNCTT suivi de F. 

NB : Pour l'enregistrement de CalvaCom, CLV_POMS est pratique. 


3/FILTRAGE DES CARACTERES ACCENTUES 

Le programme du 27 était conçu pour les serveurs Vidéotex ce qui 
explique vos difficultés (qui dépendent du type de Minitel). 
CLV_POMS résout le problème... 


6) questions sur clv-poms - 8 |. 
De: Gerard MARTZ (GM46) - 31 jul 87 15h16 


Le programme clv-poms permet-il de réceptionner également des 
fichiers binaires issus des bibliothèques ? 
Ce point n'est pas clairement expose dans l'article de pom's 31 ! 


Merci de me répondre en bal gm46 


Si vous avez un Apple //, seuls les fichiers TEXT ou EXE peuvent être 
importés, mais la plupart des programmes en langage machine ou en 
Basic sont disponibles sous la forme d'un fichier TEXT EXECutable. 
Pour le Mac, vous importerez en priorité BinHex, fichier Basic qui 
crééra l'application BinHex4. Avec ce programme et CLV_Poms, tous 
les fichiers sont récupérables (Packit 3 également en bib vous sera 
utile pour certains). 


| RS RS 


1) TRANSFERT FICHIERS TXT EN RAM - 25 |. 
De: Francois MULLER (FM17) - 06 aou 87 09h53 


Chers Amis 

Merci d'abord d'avoir ouvert une BAL pour communiquer avec vous. 
J'ai un peu avancé depuis mon dernier courrier (transfert de 

fichiers TEXT en RAM)... 

J'ai transformé le programme COPYBASFILES de Francois Dreyfuss 
paru dans le numéro 28 de POMS. 

Pour transférer des fichiers TXT en RAM il faut faire les Mods 
suivantes: 


5 DIM L$(40), O${(40) 
155 P$=RIGHTS(LS(I), 12) 
156 OS(I)=LEFTS(PS,5) 
164" BAS"=" TXT" 
595 PRINT "CREATE"RS:L$(I):"T TXT" 
600 PRINT *BLOAD":MMS:L$(I);"T TXT,A$ A00" 
700 PRINT *BSAVE"RS;LS{(I);",T TXT,A$ A00,L "O$(I) 


Tous ce passe bien mais rapidement j'ai le message - DIRECTORY 
FULL - 
Exemple: je mets 12 fichiers TXT en RAM et j'ai ce message... 


Pourtant CAT/RAM me donne 
- BLOCKS FREE: 93 
- BLOCKS USED: 34 Où est le problème ? 


PS : que signifie le T15 a la ligne 90 ? 
Merci d'avance pour votre réponse 


Normal : Le directory est effectivement saturé (pas le disque) car il 
n'est composé que d'un bloc au lieu de quatre pour les lecteurs 
classiques. 

Chaque bloc peut contenir 13 fichiers sauf le premier qui contient 
des informations sur le support et sur le catalogue lui-même : il ne 
peut en recevoir que 12. 

Sur votre lecteur 5,25 pouces, le directory est saturé avec 51 
fichiers : 

12 + 13+13+13= 51. 


La solution réside dans l'utilisation de sous-directory qui, eux, ne 
sont pas limités en taille : 
Pour en créer un : PRINT D$"CREATE /RAM/SOUS.CAT,TDIR" 


T15 signifie type directory, c'est équivalent à T$F et TDIR. 


4) Pom's - 4 1. 
De: David BENSIMON (DB25) - 14 sep 87 12h11 


Votre revue est super super super !! 
Bravo et continuez avec cette qualité ! 


David Bensimon. 


Merci, nous en restons sans voix... 


4) Cordon MAC + MINITEL - 61. 
De: NUMERA (PN19) - 08 jui 87 21h07 


Bonjour 

Philippe C. m'a dit que vous pourriez me procurer un cordon 

MAC + /MINITEL. Quel en est le prix et serait il possible d'en avoir 
un d'une longueur de 5 m environ si cette longueur n'est pas critique. 
En attendant impatiemment de vos nouvelles... 

Je vous remercie d'avance. 


Nous pouvons effectivement effectuer cette liaison qui vous 
coûtera 300,00 F Franco. 


4) prog clv + pb export - 11 |. 
De: Olivier FAGES (0F17) - 04 sep 87 00h27 


Bonjour, Je suis fidèle lecteur et utilisateur des PROGS de Pom's. En 
particulier, CLV et MINBAS qui m'aident à découvrir CALVACOM. 
Mais j'ai des pbs : 


1-Avec CLV, j'obtiens des fichiers en inverse et non exploitables avec 
AppleWorks, utilisables avec AppleWriter (mais après CONVERT!!). 


Nous n'avons pas vos difficultés avec notre AppleWorks qui semble 
indifférent au ‘poids fort’ des octets composants le fichier TEXT. 


Nous avons toutefois apporté une modification à CLV dans sa version 


1.01, mais n'ayant pas le problème, nous ne savons pas sil est 
résolu... 


2 solutions : 

- NOUS renvoyer votre disquette pour échange, 

- nous téléphoner si vous avez InterPom's pour télécharger la nouvelle 
version. 


CalvaCom ne gère pas le retournement du Minitel pour qu'il émette 
à 1200 bauds, donc, pas de solution immédiate. 


Y at-il une solution à ce pb. 


2-CALVACOM incite à EXporter mais le 75 bauds est limitatif. Avec 





un minitel 1B, votre génie, 1 Apple série, ne peut-on pas faire plus vite 

(SANS modem) ou est-ce une limitation du serveur spécial minitel : 

je n'y connais pas grand chose et compte sur vous ou un forum. 4 TS 
» LUN S 

olivier /of 17 





Pour cette première grille de mots croisés de Pom’s, nous vous proposons un petit concours : soyez le 

. . 2 LL ! ® 4 L 
premier à nous envoyer la solution et vous bénéficierez d'un avoir de 200,00 F sur les produits Pom'’s, 
pourquoi pas Ordico ?.…. 


Les possesseurs de la disquette d'accompagnement pourront résoudre le problème sur leur Macintosh 
grâce à l'application — écrite en Turbo-Pascal par Roland Jost — présentée dans ces pages. 


Problème 32 par Joelle Piard 


Horizontalement 


1- Pas très bas 2- Reprises 
3- Parasites - Tout un sac, c'est pas épais 
4- Sur un arbre, mais pas un fruit - Pour les babies 
S- Pour un essai, c'est raté - Deux pour les Zazous 
6- Pour le coureur de fonds - Deux pour un parfum 
7- Sans ordre 
8- Roche rouge 
9- Plainte mélancolique - 

Mauvais pour la vigne, bon pour bébé 
10- Possessif - Distant 


Verticalement 


1- Ne pleurent pas entre les rails 
4- Courant - On peut y trouver le 8 horizontal 


2- Française 3- Toujours plus proches 
5- Abréviation couronnée - Amère 6- Possessif - Pour tailler le 8 horizontal 
7- Subissant 8- Deux à Paris - Ne reconnaîtra plus 

9- Fut en Asie Mineure - Une pomme grand sport - Oui 

10- Sur certaines tables - Poursuit sans courir 











Pom's n° 32 13 





* pour les envois par avion, ajoutez 15 F par numéro etou par disquette soit, par exemple, 90 F pour un abonnement avec ou sans disquettes. 


Disquettes 


























Apple ][ Macintosh Accompagnement 
CLV_Pom's - 140Ko ou 800Ko 200,00F [1  CLV Pom's  200,00F [1  AJ[t40Ko4 60,00F [] 
Éditeur Vidéotex - 140Ko 200,00F [1  MacRaccourci 200,00F [1  AJ[140Ko5  60,00F [1 
E.P.E. 5.1 - 140Ko 200,00F C1  MacAstuces  200,00F [1  AJ[140Ko6  60,00F C] 
E.P.E. 5.1 - 800Ko 200,00F C1 Mac ‘A’ 80,00F 1  AJ[140Ko7 60,00F [] 
Max (moniteur étendu) - 140Ko 150,00F [1 Mac ‘B' 80,00F [] AJ[140Ko8 60,00F [1 
BananaSoft - 140Ko 200,00F C1 Mac ‘C’ 80,00F [1] A][140Ko9 60,00F [] 
Pascal - 140Ko 80,00F [1 Mac ‘D’ 80,00F []  A]J[140Ko10 60,00F [] 
Max (moniteur étendu) - 140Ko 150,00F C1]  Mac‘'E’ 80,00F C1  AJ[140Ko11 60,00F [] 
Dominos - 140Ko 80,00F C1  Mac'F' 80,00F [1 A][140Ko12 60,00F [] 
COGO - 140Ko 200,00F C1 MacG’ 80,00F [1  AJ[140Ko13 60,00F [] 
Ludologic - 140Ko 80,00F CT Mac ‘H 80,00F [1  A][140Ko14 60,00F [] 
Ordico - 140Ko 200,00F C1 Mac 80,00F [1] A][140Ko15 60,00F [] 
A][140Ko16 60,00F [] 
Recueils Pom's Mac 17 150,00F [1  AJ[140Ko17 60,00F [] 
Mac 18 80,00F [1  AJ[140Ko18 60,00F [] 
Numéro 1 (Revues 1 à 4) 140,00F [CT  Mac19 80,00F [1 AJ[140Ko19 60,00F © 
Disquettes 1 à 4 200,00 F C] Mac 20 80,00F [] A][140Ko20 60,00F [] 
Numéro 2 (Revues 5 à 8) 140,00F []  Mac21 80,00F [1]  AJ[140Ko21 60,00F [] 
Disquettes 5 à 8 200,00 F C] Mac 22 80,00F [1] A]J[140Ko22 60,00F [] 
Numéro 3 (Revues 9 à 12) 140,00F C1] Mac 23 80,00F [1]  AJ[140Ko23 60,00F [] 
Disquettes 9 à 12 200,00F [1 Mac 24 80,00F [1]  AJ[140Ko24 60,00F [] 
Mac 25 80,00F [1  AJ[140Ko25 60,00F [] 
reliures toilées Mac 26 80,00F [1 A]J[140Ko26 60,00F [] 
pour 6 numéros, soit un an 60,00 F C1 Mac 27 80,00F [1 AJ[140Ko27 60,00F [] 
Mac 28 80,00F [1  AJ[140Ko28 60,00F [] 
Apple ][ 800Ko 3'5 numéro 29  80,00F [1 Mac 29 80,00F [1  A][140Ko29 60,00F [] 
Apple ][ 800Ko 3'5 numéro 30  80,00F [1] Mac 30 80,00F [] AJ[140Ko30 60,00F [] 
Apple ][ 800Ko 3°5 numéro 31  80,00F [1  Mac31 80,00F [1  AJ[140Ko31 60,00F C] 
Apple ][ 800Ko 3°5 numéro 32  80,00F [1] Mac 32 80,00F [1  A]J[140Ko32 60,00F [] 
Revue n° 8 35,00F [] Revue n° 10 40,00F [] Revue n° 11 40,00F [] 
Revue n° 12 40,00F Revue n° 13 40,00F [] Revue n° 14 40,00F [] 
Revue n° 15 40,00F [] Revue n° 16 40,00F [] Revue n° 17 40,00F [] 
Revue n° 18 40,00F [C] Revue n° 19 40,00F [] Revue n° 20 40,00F [] 
Revue n° 21 40,00F [] Revue n° 22 40,00F [] Revuen° 23  40,00F [] 
Revue n° 24  40,00F [] Revue n° 25 40,00F [] Revue n° 26  40,00F [] 
Revuen° 27  45,00F [] Revue n° 28 45,00F [] Revue n° 29  45,00F [] 
Revue n° 30  45,00F [] Revue n° 31 45,00F [] Revue n°32  45,00F [C] 
Abonnements pour six numéros à partir du _____,à: 
la revue seule 225,00F 
la revue et les disquettes Apple ][ 140Ko — 5 1/4 525,00F C] 
la revue et les disquettes Apple ][ 800Ko — 3" 1/2 625,00F 0] 
la revue et les disquettes Macintosh 625,00F [CI 
la revue, les disquettes Apple ][ 140Ko —5' 1/4 et les disquettes Mac 925,00F [1 
la revue, les disquettes Apple ][ 800Ko — 3' 1/2 et les disquettes Mac 1025,00F CI 


Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou — 78000 Versailles 
Nom : 

Adresse : 

Règlement par: Carte Bleue/VISA CT & 
numéro de la carte 


Chèque postal Cl Mandat C1 


date d'expiration 


Chèque bancaire [1 


Pom's n° 32 


———————— 








Câble-interface de communication Apple/Minitel 


Cette liaison — décrite dans les numéros 27 et 28 de Pom's — est indispenszble pour Ens fonctionner ls programmes suivants : 


+ MinBas pour Apple ][+, //e, //e+, /Ic et /IGS* : programme permettant lemess=ement es éxzns Minitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies d'écran du Minitel, et auss Deomonis Œates où messages sur Un serveur, ces 
messages étant préparés à l'avance avec n'importe quel programme de tallement@=tut=s Psngrzmme publié dans le numéro 27 
de Pom's. 

+ Minitel/1 pour Macintosh : programme identique à MinBas pour Apple ], avec en plss en amd de texte pour la préparation 
etle stockage des messages sans sortir du programme. Programme publié dansle mumées 27 de Pom 

+ _InterPom's pour Apple ]{+, //e, /le+, /lc et //GS* : programme de téléchargement enbe Æesle & =tue Æooie X et Macintosh. Ce 
logiciel autorise la transmission de n'importe quel type de fichier (système, texte, binsse Ezse Les ilot & Modem du Minitel. 
Programme publié dans le numéro 28 de Pom's. 

+ InterPom's pour Macintosh : même programme, mais version Macintosh. Programme publié dans  cmmess 25 de Pom's 

+ TPom's pour Apple ][+, /'e, //e+, /Ic et //GS** : programme de récupération de l'annuaire téléphone sous & fume de fichiers 
texte. Voir page 53 du numéro 30. 

+ TPom's pour Macintosh : Identique à la version Apple ][. Voir page 42 du numéro 30. 

* ce programme est prévu pour fonctionner avec une carte Super Série Apple ; le port série intégré de lApple MGS ne comment pas. 

Toutefois, si vous désirez utiliser le port intégré afin d'y connecter le Minitel pour d'autres applications, commandez un c£ble pour 

Macintosh Plus. | 

** sur un Apple IIGS, TPom's fonctionne indifféremment avec le port série intégré ou la carte Super Série Apgle Pour connecter ke 

port intégré du IIGS, utilisez un câble pour Macintosh Plus. 


Je désire recevoir: câble Minitel/Apple ][+, //e, //e+, les avec SSC  ___ à 22500F 
câble Minitel/Apple //c À OO 
câble Minitel/Macintosh 128 & 512Ko _____ à 225,00F 
câble Minitel/Macintosh Plus, Iles port intégré _— CE 
câble Minitel/IBM PC“ ___ à 225,00F 
câble de liaison locale Apple I/Mac/IBM°" à 225,00F 


“(préciser le type des deux machines à relier : Mac 512, Mac Plus, Apple //e //c, IIGS, IBM PC PC ) 


* pour les envois par avion, ajoutez 15 F par cäble. 


Envoyez cæ bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : | 
Adresse : Æ | 
Règlement par : Carte Bleue/VISA [1 & Chèque bancaire [] Chèque postal [1 Mandat | 
numéro de la carte date d'expiration __ __ __ | 


Montant NEASIE Signature : 





Programme de transmission InterPom's 


Ce programme décrit dans le numéro 31 vous donne la possibilité d'échanger à distance via Minitel et en local des fichiers de texte 
entre Apple //, Macintosh et IBM PC'". Entre deux machines de même type, tous les fichiers sont transférables : Applications, polices 
de caractères, accessoires de bureau, commandes, documents graphiques etc. 


Je désire recevoir: InterPom's pour Apple //, disquette 140Ko, 525  ___ à 450,00F 
InterPom's pour Apple //, disquette 800Ko, 325 _ à 450,00F 
InterPom's pour Macintosh, disquette 3'25 ____ à 450,00F 
InterPom's pour IBM PC" ____ à 450,00F 


* pour les envois par avion, ajoutez 15 F par disquette. 


Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : RE 
Adresse : 


Règlement par : Carte Bleue/VISA C1 & Chèque bancaire [1 Chèque postal [] Mandat [] 
numéro de la carte date d'expiration 


Montant RE : Signature : 





Dépôt légal : septembre 1987, n° d'impression 789441 
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